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A GR AFIX 80 F/T 6 versStil. Com 
ela voc£ pode facilmente imprimir 
formulSrios continuos e folhas 
soltas como papeis de carta, 
envelopes, etiquetas, etc. Isto 
porque a GRAFIX 80 F/T 6 a unica 
que vem equipada com trator e 
com cilindro de borracha, igual aos 
das m&quinas de escrever, 
permitindo a impressSo da primeira 
a ultima linha. 




silenciosa. Imprime em 80 colunas 
a 160 caracteres por segundo com 
baixo nlvel de ruido. 

AI6m de tudo isso, a GRAFIX 80 
F/T 6 compativel com todos os 
microcomputadores, especialmente 
com os compativeis IBM- PC, 
imprimindo todos os softwares 
disponlveis (Dbase III, Lotus 1-2-3, 
Word, ABC, Chartstar etc.) 

Conhepa a GRAFIX 80 F/T. 

A impressora certa para seu 
micro pessoal ou profissional. 




Al. Amazonas, 832 - Alphoville 
Baruerl -SP Tel. 421 1247 




f mf ossa edigao de JOGOS traz di- 
u m versos programas e id&as inte- 
ressantes, mesmo para aqueles usu£- 
rios que preferem aprender a fazer do 
que jogar. Pensando neles, inserimos 
nesta edigSo, al6m das listagens de jo- 
gos, artigos que con tern dicas precio- 
sas para os curiosos e autodidatas. 

No artigo "A programagao de jo- 
gos ", nosso colaborador Giangiacomo 
Ponzo Neto percorre, com exemplo, os 
diversos elementos que devem constar 
de um bom jogo, dando sugestoes de 
como melhor explorer os recursos das 
mdquinas. Paolo Fabrizio Pugno co- 
laborou neste numero com um editor 
de adventures, que permitird a voc§ 
criar suas prdprias aventuras. Nesta 
classe de jogos, um artigo deste tipo 6 
especialmente aconselhdvel, visto se- 
rem os adventures programas em que 
o criador pode gerar enredos, cenArios 
e personagens com vida prdpria. Pode 
ser uma excelente experiSncia voce 
criar um jogo para seu amigo ten tar I E 
al6m das inumeras outras atragoes que 
este numero de MS Ihe traz, os usu£- 
rios da linha ZX Spectrum poderao 
aprender — e muito — sobre a mani- 
pulagao de seu video em Assembler e 
a geragSo de gr&ficos, se tiverem o tra- 
balho de digitar o in&Jito monitor gr&- 
fico para o TK90X, de autoria do pro- 
gramador Divino C. R. Leitao, criador 
de diversos jogos comerciais, como o 
Walkirie, Q*BERT, Cavernas de marte 
e Pinball, pela marca Ciberne, e que j£ 
hci alguns numeros integra a equipe de 
MS, na coordenagao do CPD. 



NOTA AOS LEITORES DE MS 



• A partir desia edi^ao, MICRO SISTEMA S ado- 
tard uma nova dassificagao no material publica- 
do para a linha Sinclair. Na categoria ZX81, esta- 
rao os programas e dicas compativeis com os mi- 
cros nacionais TK82, TK85e CP-200. Quandofa- 
larmos em ZX Spectrum, estaremos nos referin- 
do aos programas que rodam no TS2068 e no 
TK90X (por horn, nosso unico compativel com o 
Spectrum inglisj. Finalmente, por linha Sinclair 
entenderemos o material que serve tanto para o 
ZX8I quando para o ZX Spectrum. 
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O sorteado deste m6s, que receberft uma 
assinatura anual da revista 
MICRO SISTEMAS. 

4 Ernst R. A. Bergmann, 
do Rio de Janeiro • RJ. 

MAPA DA ROM 



Tenho algumas duvidas com relapao ao 
interessante artigo Apple: O Mapa da ROM, 
encerrado em MS n? 46. Sao elas: 

a) Consta que o interpretador est2 na 3rea 
$D000-$D7FF; est3 correto? 

b) Nas linhas $45-$49 estao os registrado- 
res A, X, Y, P e S ou A, X, Y, S e P. respec- 
tivamente? 

c) Na3rea usada pelo BASIC, $0800-$8FFF, 
n5o constou que as areas $0C00-$1FFF e 
$6000-$BFFF nao sao usadas e que estSo 
livres para o usubrio. 

Eduardo Bonaz Marques 
Sio Paulo — SP 

Deacordo com nosso procedimento habi- 
tual, enviamos sua carta ao autor do artigo e 
recebemos a seguinte resposta: 

" Verifiquei com cuidado os pontos que 
voci ressaltou em sua carta. Com relaqao ao 
primeiro item, realmente houve falha de mi- 
nha parte: o interpretador BASIC APPLE- 
SOFT fica entre SDOOO e $F7FF, e nao 
SD7FF. A respeito dos outros dois pontos, 
porAm, nao hA erro nenhum. Tudo indica 
que suas duvidas com relagao A ordem de ar- 
mazenamento dos registradores e As Areas li- 
vres na memdria sao originadas do Guia do 
Usudrio do Apple. LA, os autores se embana- 
naram com os registradores e chegaram a 
conclusOes erradas, invertendo o stack poin- 
ter e o registrador de flags (S e P). A ordem 
corrreta A: A, X, Y,P e S. 

Sobre as Areas SCOO-S1FFF e $6000 
SBFFF, cuidado I Elas nao estao livres para 
o usuAriol O programa BASIC e suas variA- 
veis comegam em $ 800 e muito frequente- 
mente vSo alAm de SCOO, chegando mesmo 
a atropelar as pAginas grAficas de atta resolu- 
pad. Do outro lado, as strings comegam a ser 
armazenada's logo abaixo do HIM EM. e vim 
descendo em diregao ao inicio da memdria. 
Neste processo de fechamento da memdria. 
o BASIC nao respeita nada, nem mesmo 
suas pAginas grAficas — voci deve protegi-las 
atravAs dos comandos HIMEM; e/ou LO- 
MEM: . JA que entramos no assunto, cuida- 
do com a expUcagao que A dada no livro 
para o LOMEM: fLOMEM. serve para definir 
o enderego em que vao comegar a ser arma- 
zenadas as variA veis — o interpretador execu- 
te automaticamente um LOMEM . para a pri- 
meira posigao livre apds o programa ). " 

Aldo Felfcio Naletto Junior 
Sao Paulo — SP 



LIVROS/BAS 



No programa Livros/Bas, publicado em 
MS n? 36, a partir do registro 100 do Ar- 
quivo Livros, a listagem feita na tela apare- 
cia com uma linha em branco entre cada re- 
gistro listado. Para resolver este problema, 
fiz algumas pequenas modificapSes nas li- 
nhas 610 e 1560. As modificapoes se resu- 
mem em acrescentar, no inlcio das duas li- 
nhas K$ =STR$(K): e, no final de ambas, 
trocar K por K$. 

Sdrgio Veludo 
Beldm — PA 





✓ 



Ao estudar Assembler no CP 400, depa- 
rei-me com o problema de gerapao de som e 
verifiquei que para produzi-lo 6 necessdrio 
preparar o Sel 1 e o Sel 2 e variar a porta de 
som ($FF20), gerando assim sons. Meu pro- 
blema reside em como controlar os seguintes 
pardmetros dos sons produzidos: freqiidncia, 
duracao e volume. Agradeco qualquer ajuda. 
As cartas podem ser enviadas para a Rua Ar- 
lindo Nogueira, 1 165/sul, CEP 64000. 
Leonardo Robert de C. Braga 
Teresina — PI 



MS AGRADECE 



Esta 6 a primeira vez que escrevo a MS, 
apesar de ser assinante hd trds anos. Desejo 
congratuld-los pelo curso de FORTH, ini- 
ciado em MS n? 49, o qual gostei muito. 
Desejaria agora que fosse publicado um ar- 
tigo sobre os diversos compiladores FORTH. 
Gostaria tambdm que fosse publicada algu- 
ma dica ou programa para destravar os pro- 
gramas do TK90X. 

Sotero Luiz da Silva 
Santos — SP 

CORRESPONDENCES 

Desejo entrar em contato com os Coco- 
man Tacos de Sao Paulo. Correspondencies 
para a Rua Manuel Alonso Medina n? 207, 
CEP 04160, Jardim Umuarama. 

J. Ronaldo Bressane Junior (Sao Paulo — SP) 





Gostaria de trocar informacOes, dicas e 
programas com usudrios do ZX Spectrum. 
Meu endereco d SHIN Ql — 1 1, cj. 13, casa 
07, CEP 71500. 

Alexandre M. Brito (Brasilia — OF) 

PONTO DE VISTA 



Li com muito interesse a report agem 
Software: um produto nacional bruto, em 
MS n9 48. No box sobre produpao amado- 
ra, V. Sas. dizem que as idades dos progra- 
madores variam de 16 atd 50 anos. Isto nao 
pode ser uma verdade. 

Ol hem para mim: sou programador ama- 
dor, muito ativo e sempre estudando. Iniciei 
minha carreira de programador rib ano de 
1982, com um NE-Z8000. Aprendi BASIC 
como autodidata, exatamente da maneira 
descrita na matdria. Aldm disso, fabriquei, 
entre outras coisas.um teclado, bem como o 
monitor de video publicado em MS n? 21. 
No trabalho, uso os computadores ao maxi- 
mo. 

Hoje tenho, al4m do NE-Z, um TK 2000, 
um RINGO, alguns filhinhos pr6-programa- 
dores, uma famllia encantada com os pro- 
gramas, uma mulher com ciumes do micro, 
uma membria melhor do que nunca e 64 
anos bem contados. 

Eu acho que, na verdade, as idades dos 
programadores variam de 16 (?) at6 80 anos. 

Ernst R. A. Bergmann 
Rio de Janeiro — RJ 




Envie sua corresponddncia para: 

ATI - Anaiise. Teleprocessamento e 
InformUtica Editors Ltda., Av. Presiderrte 
Wilson, 165/gr. 1210, Centro, Rio de 
Janeiro/RJ. CEP 20030, SepSo 
Cartas/ Redapdo MICRO SISTEMAS. 
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"BOM, E QUE NAO CAI 
NA MONOTONIA. 

AQUI MESMO NA EMPRESA 
EU FAQO CURSOS DE 
APRIMORAMENTO" 

Fernando Lopes 
Tbcnico de Manutenpao 





"O PUM PLIM DA TV PARECIA 
0 BIP. Al' EU SAIA CORRENDO" 

Rogerio de Figueiredo 
Tbcnico Pleno 



"MINHA MULHER 
NAO ACORDA MAIS 
COM 0 BIP. 

EU VOU E VOLTO, 
EELANEM 
PERCEBE" 



Luis Alberto Silva 
Tecnico de Manutenpao 





CONSERTO E MANUTENPAO 
DE COMPUTADORES 



"NUNCA DEIXAMOS UMA 
MAQUINA PARADA. 
SEJA QUAL FOR, ONDE FOR, 
VAMOS CONSERTAR!" 

Mauro Diniz 
Auxiliar Tbcnico 




021 240-4934 
011 240-5899 

SUPORTE DE INFORMATICA 



COUXXJE 0 SEU PROORRMB 














RETURN 



0 MTSTU-M RESQUfE. 

rS-IV-M e um Micro Multiusu^rio, admite ate 6 terminals de video teclado 
com capacidade de executar multiplas tarefas. Digite. 

Rto de Janeiro - Av CalOgeras. 6-B - Sobrelojas 

B Tels 240-4934 220-9943 - Castelo TWX (021 ) 30354 

CEP: 20030 

COMPUTADORES Sdo Paulo - Rua Inhambu. 1 .271 - Tel. : 240-5899 

Moema TWX (01 1)21299 
CEP 04520 
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De uma chance a sua criatividade. 
Com um micro da linha Sinclair, 
algumas tecnicas e bom-senso, voce 
podera fazer seus jogos! 



A PROG RAM AC AO DE 



Giangiacomo Ponzo Neto 



N este artigo, trataremos dos elementos constituintes de 
um jogo e sua elaborate), a partir de conceitos basicos, 
procurando exemplificd-los para um melhor entendi- 
mento. Para isso, embora o artigo procure ser o mais 
ectetico possfvel, usaremos o BASIC Sinclair, por ser uma lin- 
guagem de facil conversao e uso bastante difundido. 

Dividiremos o assunto em dois itens principal: Rotinas Bd- 
sicas, comuns a quase todos os jogos animados e que dao a 
“base” do programa; e Recursos Adicionais e Sofistica 9 oes, 
elementos que, mesmo ndo sendo obrigatdrios, podem enrique- 
cer um jogo, tomando-o mais atrativo. 

A primeira coisa a se pensar e, evidentemente, a iddia do 
jogo. Apos ter algo planejado, 6 uma boa pratica desenvolver as 
situa^des imaginadas na tela, para se ter no^ao de como sera o 
visual do que imaginamos. Assim, 6 necessario desenhar as per- 
sonagens envolvidas numa disposi 9 §o semelhante a que se de- 
verd ter, mesmo que ainda ndo exista movimento, o que ajuda- 
rd inclusive a aprimorar o pensamento inicial. A partir dai, pas- 
saremos ds Rotinas Basicas, com a descri 9 §o das mais comuns. 

DESENHO DOS COMPONENTES 

Existem dois tipos de desenho num jogo animado: os fixos, 
que formam o cenario; e os moveis, que podem sofrer desloca- 
mentos ou sumir e/ou aparecer. Os primeiros sao os mais sim- 
ples para se trabalhar (o que nao implica em menor complexi- 
dade), e deve-se procurar faze-los usando o tipo de comando 
mais fdcil da linguagem, jd que devem ser definidos no inicio 
do jogo e o loop bdsico do programa nao deve passar por eles; 
ndo importando, assim, a eventual lentidao dos comandos usa- 
dos. Nestes desenhos incluem-se paisagens de fundo, solos e 
outras figuras que permanecerao inalteradas. 

0 segundo tipo, desenhos moveis, sao os que mais requerem 
cuidados. Sua impressao, em constante mudan 9 a de posi 9 ao, 
deve ser rdpida o suficiente para nao comprometer a emo 9 §o 
do jogo. 

Temos dois modos usuais de desenhar na tela: atraves de co- 
mandos do tipo PRINT, PLOT, etc., ou com uso direto do ar- 
quivo de imagem, usando POKE. O primeiro e mais simples, e 
apresenta vantagem, em termos de velocidade, quando o que 
temos a imprimir, de uma so vez, nSo e muito pequeno (mais 
de quatro caracteres). Isto porque, apesar do POKE ser mais 
rapido, ele s6 imprime um carater por vez, sendo assim neces- 
sdrios varios deles para formar uma figura maior. 

Desenhar com PRINT ou PLOT e elementar e so vai depen- 
der de uma boa imagina 9 §o; porem, a impressao com POKE e 
um pouco mais complexa. A grande maioria dos micros tern o 



video flxamente mapeado na memoria. Neste caso, o POKE 
leva o endere 90 do ponto de tela que se quer acessar. No 
ZX81, entretanto, a memoria de video tern inicio variavel, de- 
pendendo do tamanho do programa. Para encontrar seu inicio, 
devemos proceder como no exemplo abaixo: 

10 LET A-PEEK I6396+2S6”PEEK 16397+1 
20 POKE A, 129 
30 POKE A+1 . 1 38 
40 POKE A+2,131 

0 programa anterior imprime uma “nave” nas tres primeiras 
pos^Ses da tela. A linha 10 encontra o endere 90 da primeira 
posi 9 §o. Cada linha de tela tern 32 caracteres e mais um NEW- 
LINE (c6digo 118) na posi 9 §o 33. Para imprimir a nave na se- 
gunda linha da tela, poderiamos fazer: 

50 POKE A+33, 129 
60 POKE A+34, 1 38 
70 POKE A+3S. 131 

£ interessante lembrar que, uma vez encontrado o valor na 
linha 10, esta nao precisa mais ser lida, desde que nao se perca 
a variavel (no caso: A). Portanto, a linha citada so precisa figu- 
rar na inicial iza 9 do do programa. 

Para maiores detalhes e dicas sob re desenhos na tela, veia o 
artigo “Arte e Tecnica na Tela do Computador” (MS n9 27). 

movimentacao de personagens 

As figuras moveis sSo os elementos que representam a a 9 ao 
do jogo. Para tal, elas devem ser impressas de forma rdpida e 
movidas com igual preocupa 9 ao. 

Para ilustrar, veremos a maneira mais comum de movimen- 
to, a partir de um caso geral. Para mover uma figura em qual- 
quer dire 9 ao, da posi 9 ao X para Y, teremos, basicamente, o 
mesmo metodo: dada a figura em X, primeiro a apagamos e de- 
pois a imprimimos em Y (estes dois passos podem ser troca- 
dos). Exempli ficando: 

10 LET A-0 
20 LET B«0 
30 PRINT AT A.Bj’S" 

40 LET A* A* 1 
SO LET B*B‘1 
60 PRINT AT A-l.B-1;* 

70 GOTO 30 

Para termos movimento em outra dire 9 ao e/ou sentido bas- 
ta alterar os numeros nas linhas 40, 50 e 60. £ valido notar que 
alguns micros nao usam a formata 9 ao de tela por linha e colu- 
na. £ o caso dos TRS-80. Para o esclarecimento desta e de ou- 
tras diferencas, e muito interessante ler o artigo “Dialetos BA- 
SIC” (MS n 9 46). 

Nao se pode, em BASIC, melhorar muito a velocidade des- 
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se movimento. Existem, porem, algumas exce 9 oes. Por exem- 
plo, para um movimento horizontal na linha 21 da tela, pode- 
riamos alterar o procedimento anterior com as seguintes mo- 
difica9(5es, deletando as linhas 10 e 40 e mantendo as outras: 

30 PRINT AT 2 1 , B; " S " 

60 PRINT AT 21 ,B-1 ;* " 

Entretanto, para este caso podemos usar outra rotina, bem 
mais simples e rapida: 

10 LET B«0 

20 PRINT AT 2 1 , B : ” S' 

30 LET B*B+ 1 
40 GOTO 20 

Agora n3o ha necessidade de se apagar a figura anterior, 
pois o espa 90 em branco deixado na string da linha 20 j a o faz. 
Existe ainda a possibilidude de se usar o POKE, para uma even- 
tual acelera 9 do da rotina. 

Uma tecnica de simula 9 ao de maior velocidade e a de se im- 
primir a figura em mais de uma posi 9 §o, alem de seu local de 
origem. Equivaleria em substituir a rotina anterior por: 

10 LET B* 0 

20 PRINT AT 21, B;' S" 

30 LET B-B+2 
40 GOTO 20 

Este artificio pode ser usado para obtermos diferentes velo- 
cidades para cada figura. Perceba que o mimero somado na li- 
nha 30 e sempre igual ao numero de espa 90 s em branco antes 
da figura. Neste caso so tern sentido haver espa 90 s do lado es- 
querdo, ja que o movimento e so para a direita. Caso a figura 
tambem se movesse para a esquerda ou em ambos os sentidos 
seriam necessarios ainda espa 90 s no lado direito. 

Como ideia final, ilustraremos tambem um caso de movi- 
mento oscilatdrio: 

<0 PRINT AT 10,10; f|H ;AT 10.10;'50S' 

20 FOR P* 1 TO 4 
30 NEXT F 
40 GOTO 10 

Esse efeito dd a sensa 9 ao de superposi 9 ao de imagens, po- 
dendo ser utilizado para real 9 ar textos ou figuras ou na si- 
mula 9 ao de alguns eventos, como a movimenta 9 ao das helices 
de um helicoptero, por exemplo. O loop entre as hnhas 20 e 
30 serve apenas para definir uma espera. 

ORDENS DO JOG ADO R 

Tudo que depende do jogador no desenrolar do jogo decor- 
re do pressionamento de teclas especificas ou atraves de um 
joystick. Dai a necessidade de comandos que interfiram no 
processamento sem haver parada e altera93o do programa. Na 
verdade, o ideal e que, alem dele nao ter que ser alterado, ele ndo 
pare. Isso limita muito o uso do INPUT, por ele interromper o 
andamento do jogo. A maneira usual de interagirmos com o 
programa e usar o comando IN KEYS (GET em alguns micros). 
Um primeiro modo de se tentar usar o INKEYS para duas ou 
mais a95es, decorrendo da mesma tecla, poderia ser realizado 
pela seguinte rotina: 

10 IF 1NKEYS*'0" THEN PRINT "A"; 

20 IF I NKEYS- "0 " THEN PRINT "B'i 

30 GOTO 10 

Duas a 90 es distintas (no caso, escrever A e B na tela) decor- 
rem do pressionamento da tecla 0. A rotina anterior funciona, 
porem havendo um inconveniente: como nao ha garantia de 
que voce vai pressionar o 0 exatamente quando o processamen- 
to for para a linha 10, tirando o dedo da tecla na hora em que 
ele sair da linha 20, e impossivel ter a certeza de que as a9<5es 
serao cumpridas na ordem estabelecida. Isto e resolvido no 
exemplo abaixo: 

10 LET AS-INKEYS 

20 IF AS=-0" THEN PRINT "A”; 

30 IF AS«"0" THEN PRINT “B"; 

40 GOTO 10 

Nesse caso, a hierarquia da seqiiencia sera sempre respeita- 
da. Outro metodo usual de se interagir com o jogo 6 criar uma 
“bandeira” (uma variavel que sinaliza alguma condi 9 ao), con- 
forme e mostrado abaixo (a bandeira e X, que fica “ligada” 
quando pressionamos a tecla 0). 



10 LET X=0 

20 IF INKEY$-"0“ THEN LET X* 1 

30 IF X-1 THEN PRINT "A"; 

40 IF x=1 THEN PRINT “B”; 

80 GOTO 10 

Em alguns casos, pode-se querer uma a 9 ao no jogo em 
decorrencia de um toque em uma tecla, sem que se precise 
mante-la pressionada. Isto se consegue substituindo a lmha 
50 por 50 GOTO 20 e acrescentando a linha 45 IF INKEYS 
= “I” THEN LET X = 0. A bandeira agora e usada para sina- 
lizar a condi 9 ao “desligada”, quando oressionamos a tecla 1 . 

O uso do INKEYS e comum tambem p.os GOTOs condicio- 
nais, como e exemplificado abaixo: 

IF lNKEY$-”0” THEN GOTO XXXX 

Neste caso, ainda, podemos usar uma bandeira: 

IF X=0 THEN GOTO XXXX 

A bandeira ja tena sido definida por um comando LNKEY S . 

Um detalhe: os exemplos mostrados sao simples, e pode- 
ria se perguntar se valeriam a pena os metodos mostrados apos 
o primeiro. Porem, ha que se entender que poderiamos ter vd- 
rias a9<5es complexas, decorrendo do acionamento de teclas, e 
nao so o simples fato de se escrever A e B na tela. Nestes casos, 
os metodos vistos devem ser considerados criteriosamente. 

TESTES DE COLISAO 

Quando um tiro atinge um aviao, ou qualquer outro caso 
em que o cruzamento ou colisao de figuras ocorre, imediata- 
mente o programa deve proceder a uma modifica 9 ao na situa- 
9 ao. Esta se traduz normalmente em desvios para outras par- 
tes do programa, em mudan 9 a de concludes na tela, incremen- 
to ou decremento de contadores etc. Porem, o que mteressa, 
a priori, e detectar as eventuais colisdes de figuras atraves dos 
testes. 

Temos dois modos basicos de faze-los: diretamente das 
informa 9 des de tela ou atraves do armazenamento das pos^des 
das figuras em variaveis, matrizes ou mesmo em posi 9 ao mais 
alta da memona, cnando um buffer. No pnmeiro caso, compa- 
ram-se os caracteres das personagens envolvidas com os 
caracteres diversos e procede-se a a 9 ao necessana. No segundo, 
comparam-se as pos^oes na tela dos elementos que colidiram 
com o que havia no buffer, e toma-se a decisao programada. 

Usaremos um pequeno programa para exemplificar os dois 
casos. Um missil surge na tela e tenta acertar uma barreira. 
Pelo pnmeiro metodo teremos que, a cada “passo” do missil, 
testar se a posi 9 ao para a qual ele prognde contem algum cara- 
ter da barreira. O carater de fim de tela tambem pode ser tes- 
tado para dar fim ao curso do missil. Uma altemativa a issoe 
desenvolver um contador dos passos do missil, que e checado 
penodicamente para sabermos o fim do tiro. Vamos ao exem- 
plo: 

10 FOR F«0 TO 21 
20 PRINT AT F.Uj'SSc 
30 NEXT P 
40 LET B»0 

80 LET A- I NT (RND*6I*8 

60 PRINT AT 1 0 , 30 i "X" ; AT 11,30;"X':AT 12,10t'X" 

70 PRINT AT A , B : ' ->";AT A,B‘3; 

80 LET 1 

90 IF PEEK (PEEK 16 398«296*PEEK 16)991-61 THEN GOTO 12" 

100 IF PEEK (PEEK 1 6 398+ 286 'PEEK 161991-8 THEN GOTO ISO 
110 GOTO 70 

120 PRINT AT 10. 12;'ACERTOU" 

130 PRINT AT 10. 30; Q- : AT 1 1 . 10 : "D : AT I 2 , 10 . H 
140 GOTO 160 

180 PRINT AT 10, 12;’ERROU“ 

160 PAUSE 80 

170 PRINT AT 10,12;” '.AT A , B : ” ” 

180 GOTO 40 

Uma rapida analise: as linhas 40 e 50 definem parametros 
do missil, as linhas de 10 a 30 e 60 desenham o fim de tela e 
a barreira (o carter da linha 20 e GRAPHICS + SHIFT + A 
e o da linha 130 e um X inverso), as linhas 70 e 80 fazem o 
movimento do missil e as hnhas de 110 a 180 sao detalhes 
gerais. O que nos interessa esta contido no fim da linha 70 e 
nas linhas 90 e 100. O fim da linha 70 contem AT A.B+3; m 
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que posiciona a vanavel do sistema que indica o endere 90 do 
proximo PRINT na memona do video. Essa vanavel esta, 
no Sinclair, nos endere^os 16398 e 16399. 0 conteudo do en- 
dere^o que ela aponta e testado nas linhas 90 e 100. Se o 
numero encontrado for 61 (codigo de “X” — barreira) ou 
8 (codigo de “ JSS ” - Tim de tela), sera dado o desvio previs- 
to. Alguns micros possuem fun?des especiais que determinam 
condi^des de posi^des de tela. 0 uso de variaveis do sistema 
ou fun^oes especiais depende muito do micro, sendo necessa- 
rio um estudo mais detalhado das suas caracteristicas para via- 
bilizar o que foi mostrado. 

Para ilustrar o outro mdtodo, de BREAK, em seguida 
elimine as linhas 90 e 100 e o fim da linha 70, acrescentando: 

t 1 DIM X( 3) 

5 2 LET X( 1 ) - 1 0 

3 LET X(2)«11 

4 LET X<3)«12 

5 LET ¥-30 

90 IF ( A=X ( 1 ) OR A«X(2> OR A«X(3)) AND B+2«¥ THEN GOTO 120 
100 IF B*1«Y THEN GOTO 150 

As linhas de 1 a 5 definem o buffer que usamos para guar- 
dar as posi^des da barreira (o vetor X guarda as linhas e a varid- 
vel Y.a coluna). A linha 90 testa a posi^ao para aqual o missil 
vai prosseguir, comparando-a com a posi^ao da barreira. A 
linha 100 nao precisa testar se as posi^des nao sao da barreira para 
detectar o erro do alvo, pois caso fossem, o processamento ja 
tena sido desviado pela linha 90. Se a barreira fosse movel, 
seu buffer devena scr alterado a cada movimento. A grande 
diferen<;a entre os metodos reside no fato de que o segundo 
nao se importa com o que ha na tela. 

O uso de um ou outro metodo vana muito, porem na 
maiona das vezes, o segundo e mais lento. E um modo de se 
acelerar o primeiro caso £ fazer so um teste na linha 90, eli- 
minando a linha 100. Esse teste venficaria se existe algo na 
posi 9 ao desejada, e, em caso positivo, desviaria o processamen- 
to, onde entao se sabena que tipo de colisao havia ocomdo, 
com acerto ou nao. A velocidade aumentaria, pois o teste 
a cada passo do missil sena um, ao inves de dois. 

CONTADORES GERAIS 

Os contadores sao elementos comuns a praticamente to- 
dos os tipos de jogos existentes. Eles representam o balan 9 o 
geral da situa 9 ao do jogador num dado momento, pois contain 
os seus pontos marcados, vidas restantes, numero de inimigos 
eventualmente atingjdos, tempo decorrido ou restante, recor- 
des anteriores e muitos outros parametros vitais para o desen- 
volvimento dojogo. 

A tecmca em si nao traz nada de complicado. Na verdade, 
um contador pode ser um simples incremento em uma varia- 
vel do tipo LET C = C + 1, onde C representa a expressao 
matematica de alguma situa 9 ao real na tela. Eventualmente, 
poderiamos ter decremento na variavel (no caso da perda de 
uma vida, por exemplo); ou ainda, o numero a somar ou 
subtrair poderia ser maior ou menor que 1 (por exemplo, se 
determinado alvo valesse 10 pontos, outro 20, etc.). 

Usando o ultimo programa visto, poderemos mostrar al- 
guns exemplos de contadores, se incluirmos as seguintes ins- 
tru95es: 



6 LET L»0 

7 LET P=0 

45 LET L«L+1 

125 LET P-P+1 

175 IF L*5 THEN GOTO 190 

190 PRINT AT 10,12;”FIM-,,,,TAB 2;"0 MISSIL ACERTOU ";P;" VEZES* 

Agora temos dois contadores no programa. Rode-o e veja 
a diferen 9 a. Observe que ele so vai fazer cinco lan 9 amcntos 
(devido ao contador da vanavel L), que e o numero de misseis. 
Alem disso, o programa dira quanlas barreiras foram atingjdas 
(atraves do contador da vanavel P), que e o numero de acertos. 

k- 



As linhas 6 e 7 definem os contadores, as linhas 45 e 125 
os incrementam e a 175 faz o teste de fim de misseis. Perceba 
que na linha 100, quando comparamos B + 1 com Y,estamos 
usando um contador (B + 1) qu<3, quando chega ao limite 
(Y), ocasiona uma ordem de desvio. 

Obviamente, o programa mostrado foi feito apenas para 
mostrar onde se localizam e como sao feitas certas rotinas 
elementares. Para um jogo ser realmente bom, ainda deve 
con tar com outros aspectos. 

Fazer um bom programa implica nao so no uso puramente 
computational de instn^Qes, mas tambem em tecnicas gerais 
de aperfei 9 oamento. Essas tecnicas fogem ao estilo “receita 
de bolo”, pois variam muito de acordo com o que se pretende; 
e e nisso que entra a subjetividade do programador ou a sua 
arte. Tais aspectos dao a diferen 9 a basica entre um programa 
e outro que, a primeira vista, fazem a mesma coisa. Agora, 
veremos Recursos Adicionais e Sofistica 9 des. 

VELOCIDADE 

Mais do que um recurso, a rapidez e necessaria para propor- 
cionar uma a 9 ao-rea 9 ao estimulante para o jogador. Existem 
micros mais lentos que tomam quasc impossivel a cria 9 ao de 
bons jogos, por torna-los monotonos, notadamente quando 
forem usadas linguagens de alto nivel como, por exemplo, 
o BASIC. Se pudermos utilizar o BASIC compilado, teremos 
melhores resultados. Porem, se nao dispuscrmos destc recurso, 
torna-se quase obrigatorio o uso da hnguagem de maquma. 
Algo neste sentido pode ser visto no artigo “Jogue em Ritmo 
Assembler” (MS n? 40). Outra tecnica consiste em evitar 
certos procechmentos mais lentos por natureza. Uma discussao 
mais prolongada sobre este e outros aspectos se encontra nos 
artigos “Anime-se e Fa 9 a Bons Programas em BASIC” (MS n 9 
23) e “Otimize seus Programas em BASIC” (MS n? 31). 

Nas rotinas apresentadas, tentamos discorrer sobre a moro- 
sidade de algumas e a vantagem de alternativas mais velozes e 
igualmente eficientes. 

MEMORIA DISPONIVEL 

Embora nao seja um recurso por si so, uma maior disponi- 
bilidade de memdria possibilita um maior numero de situa95es. 

Por outro lado, a economia de memoria e, muitas vezes, 
um fator limitador no desenvolvimento de jogos. O melhor 
exemplo disso sao os adventures: quanto menor a capacidade 
de armazenamento, menos situa 9 oes se tornam possiveis. En- 
tretanto, como no caso da velocidade, existem detemiinados 
metodos que levam a um menor consumo de memoria. Os 
principals seriam: evitar comentarios, espa 90 s em branco e ins- 
tru 90 es dispensaveis e usar strings em vez de numeros. Porem, 
muito mais pode ser feito. Veja o artigo “Utiliza93o da memo- 
ria de seu Sistema de Modo Mais Eficiente” (MS n? 5), para 
mais dicas. 

COMODIDADE 

Um jogo deve ser confortavel. Certas vezes, pode ser inte- 
ressante sacrificar a existencia de algum comando para nao 
comprometer a facilidade de a 9 ao por parte do jogador. Exem- 
plificando: imagine um jogo (n§o e fato raro...) que use os co- 
mandos basicos de um joystick para movimentos e tiro, porem 
que necessite, por exemplo, de um comando especial de loco- 
mo 9 ao (caso tfpico do hiperespa 90 do “Asteroids”). Ora, e ter- 
rivelmente incdmodo abrir mao do joystick para pressionar 
uma tecla do micro. Ideal seria se todos os comandos pudes- 
sem ser acionados no primeiro. Em linguagem de maquina po- 
de-se, com certa facilidade, comparar o pressionamento de 
mais de uma tecla ao mesmo tempo. Uma op 9 ao, entao, seria 
usar o botao de tiro e mais um comando do bastao para ordens 
especiais, como a citada. 

Se os comandos forem do teclado, ha que se tomar cuida- m, 
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Quem tem o UP -1237 da Parks 
nao tem um modem.lem quatro. 



O Modem UP- 1237 6 o quatro em um da Parks 
porque opera em transmissOes assincronas a 
velocidades de 1200/75 bps ou 300 bps, no padrSo 
CCITT ou no padrSo Bell. 

Vocfi vai cncontrar nesse modem outros 
diferendais que a Parks desenvolveu para oferecer o 
maximo em tecnoiogia: 

• dispositivo de resposta autom^tica incorporado, 
possibilitando a formacao de redes de 
computadores usando comunicacSo via linhas 
telefdnicas discadas. 

• comutacSo manual modem/ telef one a partir de 



chave no painel frontal, permitindo acesso aos 
grandes bancos de dados nacionais e intemacionais. 

• selepao de vejocidade no painel frontal. 

• facilidade de teste de enlace analbgico local para 
diagnOstico do equipamento. 

• visual badio da situapSo de configuracSo e dos 
circuit os de interface por meio de onze indicadores 
luminosos no painel frontal. 

Como voc6 sabe, para a Parks o melhor e a 
perfeicao. Por isso, voc8 tera a seguranpa de um 
rigoroso controle de qualidade e garantia de 2 anos. 

Comprove. 
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A programaqAo de jogos 

do com a disposi^ao das teclas, buscando urn maior conforto. mudos (at6 por rotinas especiais), a cor n3o admite meio ter- 
Elas n2o devem ser adjacentes (para nao as confiindirmos), mo: ou se tern ou n3o; e em caso de existencia, seus comandos 

nem muito distantes, e deve-se procurar distribuir as maos no sao razoavelmente faceis de se compreender, sendo necessario 

teclado de forma a n3o sobrecarregar a tarefa de uma delas. apenas usar urn pouco de bom senso na escolha das cores, sem 

exagero. Como exemplo de abuso, poderiamos citar os primei- 
COMPLEX1DADE ros programas de TV coloridos, que, avidos de demonstrar o 

novo recurso, desenvolviam cenarios de gosto duvidoso com 
Para jogos de muita agao, 6 preferivel que haja ate uma cer- todas as cores do espectro misturadas em cada quadro. 
ta simplicidade na ideia basica, e comandos “curtos e grossos” Para dispor de alguma alternativa visual, os micros sem cor 
Como exemplo classico temos os “Defenders” (usualmente podem tentar uma simula^ao de “cinza”, como aqueles carac- 

com apenas movimentos verticals e de tiro). Por outro lado, teres do ZX81, alternando pontos pretose brancos (GRAPH1- 
jogos que impliquem maior raciocmio podem ser mais comple- CS+SHIFT+A ou H), recurso esse que pode ser ampliado se 
xos, e alguns chegam mesmo a necessitar disso como fator de dispusermos de alta resolu^ao. 
semelhanija a realidade. E o caso de simuladores-de-v6o, que 

dispoem de imimeros comandos, e tendo nisto um dos seus RESOLU^AO GRAFICA 

maiores atrativos. 

Como a cor, este e um recurso de tela, sendo porem mais 
INCREMENTOS GERAIS util que o primeiro em certos casos. E a velha histbria: como 

representar um sapo ou uma galinha com um career apenas? 
Um jogo ganha muito em emo^ao quando traz em si um Se tivermos alta resolu9ao (e facilidade com sua opera^ao, o 

sentido de compet^ao; mesmo que esta seja dirigida contra que nem sempre ocorre), poderemos entao desenhar nosso bi- 

nos mesmos (por exemplo, ao procurarmos bater nossos pr6- cho, ponto a ponto. Sem este recurso, teremos que nos esfor- 

prios recordes). A simples existencia de um High Score na tela 5ar para usar, dentro do conjunto de caracteres do micro, 

aumenta o interesse do jogador. Neste sentido, ainda podemos aqueles que mais convierem ao que se tenta representar. Cai- 

contar com outros recursos; b&nus a cada etapa concluida com mos, assim, outra vez no uso do melhor recurso: nosso bom 

gxito; tempo extra em caso de realizagao de alguma tarefa difi- senso. Um asterisco representando uma aranha n3o e tao mal 
cil; elogios para os grandes feitos ou ate frases lamentando m3s assim, j3 uma letra “A” e lamentavel... 
atua^bes. Som, cor e resolu^ao grafica, em verdade, caminham jun- 

Quanto mais dificil for alcan^ar umobjetivo, maior interesse tos. Com o surgimento dos jogos “3D”, como o Zaxxon - 

temos em atingi-io. £ 6bvio que existem limites humanos que para citar um dos mais famosos- multicoloridos, com mil sons e 

nao podem ser ultrapassados; logo, ao se estipular, por exem- otima resolu93o grafica, talvez n3o seja exagero ver um certo 

plo, o numero de pontos de um jogo que se necessita para ga- romantismo-saudosismo naqueles primeiros videogames, com o 

nhar tempo extra, deve haver a preocupa^ao que estes sejam Space Invaders original. Mas daqueles bichinhos em duas di- 

humanamente possiveis de se alcan^ar. mensOes e preto e branco tiramos uma grande l^ao: quando se 

tern boas ideias e se usa a cabeQa, os recursos n3o se tornam 
SOM indispens3veis. 

0 som 6, sem duvida, um importante fator no que diz res- CONCLUS0ES 

peito 3 integra^ao (envolvimento) do jogador com o que ocor- 
re na tela. De fato, o som se presta, em primeira instancia, a Tudo o que vimos n3o tern a pretensao de ensinar ninguem 
dar maior veracidade a simula^ao de uma situa^ao qualquer no a ser um mestre na arte de fazer jogos. Sao apenas algumas tec- 

jogo, como o tiro de um canhao. nicas e refinamentos que julgamos uteis, e, as vezes, indispen- 

Existe, porbm, um problema operacional no uso do som de saveis. Contudo, aquele toque final, que vai dar a nossa marca 

forma simples, j$ que, sendo o processamento das instm0es registrada, depende so da nossa criatividade, que representa o 

seqiiencial, n3o e possivel que o tiro de canhao - para usar o que sentimos e pensamos a nivel individual, posto que somos 

exemplo anterior - seja visto na tela exatamente ao mesmo distintos em ideias e gostos. 

tempo que e ouvido seu ruido. A S0IU920, obviamente, passa Usar as rotinas apresentadas, empilhando-as em camadas es- 
pela necessidade de se diminuir ao mdximo a diferen<;a entre tanques, seria pouco criativo e resultaria num jogo ruim. Todas 

uma a^ao e sua audi^ao. O problema, entao, fica tao mais pa- as partes de um programa deste tipo devem interagir. Imagi- 

tente, quanto mais lento o equipamento ou a linguagem usada. ne um aviao voando, a uma velociaade X qualquer, e um ca- 

InstnnjOes proximas (se possivel, subseqiientes) s3o desejaveis nhao embaixo, esperando o momento mais adequado para o 

para criar um efeito de simultaneidade. tiro. Nao tern o menor sentido haver um “freio” no aviao 

Outro problema 6 que os comandos BASIC de gera^ao de quando atiramos, por causa do maior tempo que precisamos 

som sao, via de regra, apenas de notasmusicais e nao sintetiza- para desenhar o tiro. Esses outros detalhes devem ser levados 

dores de voz ou geradores de ruido. Habilidosamente, porem, em conta quando fizermos um jogo. Ai entao podemos dizer: 

pode-se fazer uso de notas mais baixas (menores frequences) “mas em BASIC nao dA !”. E muitas vezes n3o da mesmo; e 

como ruidos ou de notas intercaladas com silencio, em ritmo temos que recorrer ao Assembler. Mas, n3o fiquemos nos cul- 

acelerado, para simular helicopteros, metralhadoras, etc. pando. Afinal, as linguagens de alto nivel foram criadas para, 

Um uso mais simples e eficiente do som e como detalhe justamente, termos melhores cond^Ses de programar. Se elas 

para indica95es gerais: recordes batidos, inicio ou fim de jogo, sao, por vezes, muito lentas e nos obrigam a voltar 3s lingua- 

troca de naves e outras, justamente por n3o requisitarem tanto gens primitivas, a culpa nao e nossa... ^ 

a simultaneidade ja citada. 

Em equipamentos sem som pode ser usado um recurso ilu- 
sorio, que e o de escrever na tela o ruido do que se quer res- 
saltar, proximo ao agente da a9ao. Apesar de parecer sem gra- 

9a, 3 primeira vista, alguns BUMs e BANGs bem localizados du- 

rante um jogo empolgante podem conseguir bons resultados. Giangiacomo Ponzo Neto cursa Engenharia EUtrica na UFRJ, onde vem 

ganhando experience em programaQao FORTRAN. Trabalha tambfrn 
COR em BASIC e Assembler no seu micro da linha Sinclair e utilize ainda cal- 

culadoras programiveis. 

Diferentemente do som, que pode ser simulado nos micros 

k 



10 



MICRO SISTEMAS, Janeiro/86 




O SOFTWARE PARA O SEU MICRO 



PTirfere (43) • recoma as pegas do 
computador 

Plromania (48) ■ apague os incAndios 
The Pyramid (48) aventura na piramide 
30 Tank Duel (48) - supertataiha de 
tanques 

30 Starstrlke (48) • guerra nas estrelas 
Son of Blagger (48) • recolha os ob)etos 
Psytron (48) defenda sua base lunar, em 30 
Wheelle (48) - pilote uma moto no 
subterrAneo 

Fall Guy (48) • baseado no fitme DURO 
NA QUEDA 

Booga-Boo (48) - aiude o sapo 
Arcventure (48) - mate o Conde DrAcula 
Hunckback (48) - aiude o corcunda 
Harrier Attack • combate nas Malvinas 
SPY v SPY (48) • guerra dos espides. 

Knight lore (48) aventura no castela em 3D 
Fred (48) • desvende os pengos da 
piramide 

Fantastic Voyage (48) • entre no corpo 
humano 

Alrwolf (48) ■ baseado no seriado AGUIA 
DEF0G0 

1994 (48) - uma missAo no future 
River Raid (48) - percorra de aviAo um no 
pengoso 

Blade Alley (48) ■ desafio espacial em 30 
Maztacs (48) ■ cace um tesouro no labmnto 
30 Ant Attack (48) ■ salve a moemha das 
formigas 

Spectres • um jogo diferente bpo come-come 
New Poker (48) - clAssico jogo de poker 
Androids (48) - aventura no labirinto 
Chese Cake (48) • salve os humanos 
PSSST salve sua planta das pragas 
Cookie - aiude o cozinheire 
Scubadi-. z (48) - recolha as pArofas do mar 
Penetrator (48) - destrua o reator 
Jetset Willy (48) • recolha os objetos 
Tranz Am ■ pegue OS trofAus nos EUA 
Full Throttle (48) • corrida de motos. em 30 
Chequered Flag (48) - mantenha a POLE 
POSITION 

Worse at Sea (48) • mantenha o navio 
ftutuando 

Trashman ( 48) • ajude a manter a adade limpa 
JetPac construa os foguetes 
Selddad Attack • combata os mvasores 
Aquaplane (48) - uma lancha num mar de 
perigos 

High Moon • duelo no velho oeste 
Invasion Force destrua a nave mAe 
lump Hallager 48) • pule os obstAculos 
Night Gunner (48) • pilote um bombardeio 
Sir Lancelot pegue os obietos no castelo 
Ghostbusters (48) • caga aos fantasmas 
Blind Alley (48) baseado no filme TR0N 
Molar Maul - defenda seus dentes das caries 
Galaxians destrua as abelhas assassinas 
Monster in Hell • cuidado com o infemo 

UTILITARIOS/APUCATIVOS - 
SPECTRUM/TK 90K 

- Cr$ 70.000 • 

VU 3D • utilitano grAfico Telas em 30 
VU Calc - plamlha de cAlculos 
VU File arquivo de dados para uso geral 
Ultra Violet • super disassembler 
MC0DER II ■ cbmpilador BASIC 
Paint Box editor de telas grAftcas 

- Cr| 90.000- 

SoftCALC plamlha de cAlculos com 
GRAFICOS 

PASCAL 1j 6 compilador 
SpecFORTH compilador 
ASSEMBLER • supereditor assembler 
Tasword D ■ processador de texto com 
64 colunas 



Armored Patrol (F) ■ patrulha de tanques 
Allen Defense (F) • proteja-se dos mvasores 
Meteor Mission (F) ■ Canada espacial 
Outhouse (F) - proteja o seu banheiro 
Robot Attack (F) - destrua os robds 
Sea Dragon (F) - pilote um submarino 
Missile Atack (F) • defenda sua cidade 
Scarf man (F) ■ jogo tipo Pac Man 
Cavern (F) - escape vivo da cavema 
Penetrator (F) • aprofundese na cavernas 
Assault (F) - fuja dos ageis mimigos 
Demon Seed (F) - acabe com os enormes 
pAssaros 

Cosmic Fighter (F) • jogo tipo Invasores 

Panlk (F) • escape dos robds 

Crazy Painter (F) • pmte a tela, se puder* 

Chicken aiude a galinha 

Galaxy Invasion (F) - bpo Invasores 

Sargon (F) • jogo de xadrez 

Asllo (F) • aventura grAfica 

Zork I • superaventura 

Adventur • 4 aventuras diferentes 

FucFuc programa pomogrAfico 

Ghosts (F) • cace os fantasmas 

Rally pegue todas as bandeiras durante 

um rally 

UTILITARIO/APLICATIVOS - 

CP-300/500 

-Cr$ 390.000- 

Creator gerador de programas BASIC 
Vtsicalc - plamlha de cAlculos 
Scripslt (F) - processador de textos 
Clone III copiador rApido de discos 
ACCEL 3/4 - compilador BASIC 
Bascom • compilador BASIC 
-Cr| 490000- 

NEWDOS'80 2.0 - sistema operacional 
D0SPLUS 15 • sistema operacional 
Arranger II • arquivo de diretooos 
Profile III - gerador de banco de dados 
SuperSCRIPSIT - processador de textos 
ZEUS ■ supereditor assembler 
DisnOATA super disassembler 

- Cr* 590000 - 

Producer gerador de programas 
Super Utility 12 - superutilitArio 

JOGOS - SPECTRUM/TK 90X 

- Cr* 60.000- 

Flghter Pilot (48) • pilote um F-15 Eagle 
Flight Simulation (48) • simutador de vdo 
Hungry Horace - divertido Pac-Man 
Horace & Spiders • enf rente as aranhas 
Horace skiing (48) • esquie montanha 
ababo 

Meteors • destrua os meteoros e naves 
Combate Zone - batalha de tanques em 3D 
TerrorDaktil 4D (48) - a^Ao na terra perdida 
Astro Blaster • defenda o impAno 
Trader (48) • comArcio e a^Ao no espa^o 
Styx (48) • ande o labirinto e mate a bruxa 
Tutankhamun (48) • explore a tumba 
Arcadia - sobreviva na travessia fatal 
Space Intruder - jogo bpo Invaders 
Tornado (48) - pilote o aviAa CenAno em 30 
Planetoids ■ aventura espacial 
Match Point (48) • fantAstico terns em 30 
Cavelon (48) - uma aventura no castelo 
Galaxy Attack (48) - vahas fases no espa^o 
Chess jogo de xadrez 
Android 2 (48) • mate os robds CenAno em 30 
Escape • sata do labirinto sem ser morto. 
Lab 3D serA que voce sai dessa 9 
Ground Attack - jogo tipo Penetrator 
Delta Wing (48) - pilote um ca$a F- 16 em 30 
Manic Miner (48) • recolha os obietos da mma 
R>tty Palmer (48) ■ preencha os quadrados 
Rod fantAstico logo de smuca 



SPY vs SPY divertida a^Ao de espiAo 
contra espiAo. baseada nos famosos 
personagens da revista MAD 
Droll fantastica persegui^Ao com vAnas 
fases GrAficos mcrrveis e a$Ao rApida 
Sky Fox (J/64) • supersimulador de vdo 
com men vets situagdes de combate em 
vAnos niveis GrAficos sofisticados 
Mask of the Sun aventura grAfica. 

No MAxico voce deve achar os tesouros 
perdidos de uma antiga civilizagAo 
Kabul Spy thriler de espionagem tendo o 
AfegamstAo como cenArio 
Dark Crystal aventura grAfica baseada no 
filme "0 Cristal Encantado' Ache o 
fragmento do cristal. passando por 
diferentes cenAoos 

Flight Simulator II - pilote um Piper 181 
totaimente equipado. atraves de realisticos 
cenarios. de Nova York a Los Angeles 
Quando vocA estiver preparado errfrente 
um combate real da 1* Guerra Mundiai 
Seven Cities of Gold (J/64) - aventura 
grafica VocA deve achar o Novo Munda 
retom ando com ouro e gloria para a Coroa 
The Incrivel HULK • aventura grafica 
baseada na revista do HULK. VocA deve 
dotar este incrivel ser de inteligAncta 
Capitain Goodnight (J/64) - sua missAo A 
SALVAR 0 MUND0 das garras do terrfvel Or. 
Maybe, localizando e destnnndo a arma do 
juizo final. 

Rescue Raiders (J/64) - pilotando um 
helicoptero. comande suas tropas durante 
esta mcansAvel batalha 
Bruce Lee (J) - lute karatA como o famoso 
Bruce Lee Mate os ninjas e os lutadores de 
sumd. e complete as mats incriveis fases 
Mr. Do (J) - vocA A um mAgico que devera 
proteger o seu pomar de uma terrivel 
praga 

Were is Carmen Sandlego (64) - seja um 
detetive que devera prender o culpado peio 
roubo. Viaje pelo mundo coletando pistas 

UTILITARI0S/APUCATIV0S - APPLE II 

- Cr$ 320.000- 
Vlslcalc plamlha de cAlculos 
Vlslplot/Vlsitrend • gerador de grAficos 
Visidex orgamzador de atividades 
Vlsiflle gerador de banco de dados 
Visichedule anAltse fmanceira PERT/CPM 
Apple LOGO compilador 

Apple FORTRAN (CP/M) • compilador 
Apple Mechanic - utilitAno grAfico 
GraFORTH • compilador 
Locksmith 5.0/F • ublitAno de cdpia 
Nibbles Away II/C3 - utilitano de cdpia 
The Graphics Magicians animador grAfico 
The Graphics Solution editor de grAficos 
Print Shop • gerador de impressos grAficos 

- Cr$ 450.000 - 

Turbo PASCAL (CP/M) • compilador 
Take 1 - superammador grAfico 

JOYSTICK ANAU&GIC0 • APPLE II 
-Cr$ 280.000- 
J0G0S - CP-300/500 

- Cr$ 70.000- 

Flight Simulator (F) • simulador de vdo 
Olympic Decation (F) ■ jogos olimpjeos 



pode ser gravado em fita K7 
uso obrigatorio de joystick 
= requer 48K de RAM 
= requer 64K de RAM 



JOGOS • APPLE II 

- Cr$ 70.000 • 

Sabotage (F) • evite os pAra-quedistas 
Sargon (F) ■ jogo de xadrez 
Draw Poker (F) • jogo de poker 
Blackjack (F) - jogo de 21 (cartas) 

Checkers (F) • jogo de damas 
Fast Gammon (F) • jogo de gamAo 
Othello (F) - jogo de tabuieiro 
Lode Runner • pegue os tesouros 
Olympic Decation - jogos olimpicos 
Space Raiders (F) - de bpo CentopAia 
The Eliminator (F) • combate espacial 
Night Crawler iF) • ertfrente as CentopAias 
Space Eggs (F/J) • cagar ovos espaciais 
Hard Hat Mack • perigos na construgAo 
Head On (F) • jogo de corrida 
Choplifter (F/J) - resgate com helicdptero 
Sea Dragon pilote o submarino 
Spy’s Demise (F) jogo de agente secreto 
Star Blazer combate aAreo 
Viper (F) • alimente a cobra 
Cavern Creatures penetre na cavema 
Moon Patrol (F) • patrolha lunar 
Ms Pac Man (F) ■ a namorada do Pac Man 
Mario Bros (F) - Mario contra o gonla 
Buck Rogers • pilote sua nave em 'Zoom- 
Pitfall II - aventuras nas cavernas perdidas 
Castle Wolfenstein engane os nazistas 
Beyond Castle Wolfenstein ■ mate Hitler 
Aztec - deofre o enigma da pirAmide azteca 
Stellar 7 - combate no espago em 3D 
Rlbblt (F) • jogo tipo Frogger 
Super Buny combata as pragas 
Allen Ambush (F/J) • jogo bpo Arcade 
Out Post (F) • defenda a estagao espacial 
Defender (F/J) • Defender original 
Dog Fight n (F) • confronto de jatos 
Star Trek Jornada nas Estrelas 
Jellyfish - pilote um submarino 
Swashbuckler II - duelo de espadachms 
Temple Asphai aventura no templo 
Flight Simulator (F) - simulador de vdo 
One on One (J) - basquete com 2 jogadores 

- Cr$ 150.000- 

Karateka perfeita simulagAo de karatA 
Enfrente vAnos adversAnos e liberte a 
princesa do Akuma 

Conan localize e destrua Volta em vArias 
fases e com diferentes obstaculos. 
Ghostbusters (J) - monte uma empresa de 
caga aos fantasmas e comece sua 
aventura. Baseado no filme 
Summer Games (64) • 8 modalidades 
completas de atletismo, com as mats 
emocionantes provas olimpicas de verAo 



Desejo receber os segulntes programas pelos quals estou envlando um cheque nominal A ATI Edltora Ltda.. Av. Pres. Wilson, 165 - Grupo 1210 - Centro, CEP 20.030 
Rio de Janeiro - RJ. Oespesas de correio ja incluidas. 

Computador ( )CP-300/CP-500( ) APPLE II ( ) SPECTRUM/TK 90X. ITEM (s) PREQOCrl 



Com:.... K RAM. Desejo os programas em: { ) FITA ( ) DISKETTE. 

NOME: 

END.: CIDADE: 

UF: CEP.: TEL.: TOTAL Cr$ 



Soft line - Av. Graga Aranha, 145, Slj. 01 - Centro - Rio de Janeiro - RJ - CEP 20.030 - Tel.: (021) 262-6968 



Aqui o jogo e liberado. Escolha o numero, faga suas apostas 
e divirta-se com este programa para a linha TRS-80. 



Roleta 

Antonio Jose A vita da Silva 



E ste jogo, que utiliza 13 Kb de memdria RAM, foi de- 
senvolvido em um DGT-100, compativel com o TRS- 
80. Por ser de dominio popular, ele e muito fdcil de ser 
jogado, mesmo por aqueles que nSo o conhecem. 

Os codigos adotados estSo explicados no proprio programa, 
e sempre que quiser rev€-los tecle (R). 

Veja agora algumas dicas: 

• Em algumas linhas deste programa, que utilizam o coman- 
do PRINT, deve-se adotar o comando ( I), para localiza93o de 
impressSo na proxima linha. A linha 160 e um exemplo. 

• Linhas que possuam mais de 240 caracteres devem ser 
editadas apos o 240? carater para a inclusSo dos restantes. Este 



e o caso, por exemplo, da linha 430. 

• Na linha 370, responsavel pelo comando da roleta, 
se introduzir uma rotina de som para facilitar o jogo, rr 
que esta n3o se assemelhe com o ruido produzido pela b( 
ao girar na roleta. 

370 OUT 255.0 :OUT 255,1 :?@602,F$(C);: FOR . . 

• Todos os comandos PRINT deste programa foram es 
com ?. 



AntOnio Jos6 Avila da Silva 6 Engenheiro Civil, possui um DOT- 
doisanos e trabalha atualmente na DirepSo Gera I do IN AMPS. 



Roleta 



« 'ROLETA II REVI8AO 7/84 A. J. AVILA 

100 CLSs CLEAR 1 00 i RANDOM *0 IMF* < 37 >,0<2I>.R(21>,S<21>,G*(21>,X<21> 
tA-20OO*F-liPRINTCHR*<23>*8478,"R 0 L E T A" ; *F0R AA-1T0A* NEXT *CL 
S *PRINT820 . "INSTRU-OES <8/N>"» *G0SUB288* IFU*< >"S",CLSiGOTO200EL 
SECLSIPRINTB27, "ROLETA" 

110 PRINTS84 , "ABREVI A_0ES ADOTADAS" IPR INT"PR-PRETO VE-VERMELHO 
ME-MENOR MA-MAIOR PA-PAR IM-IMPAR 
CI-COLUNA 1 C2-COLUNA 2 C3-C0LUNA 3 
01-0UZIA 1 D2-DUZIA 2 03-DUZIA 3 

120 PRINT"PL-PLEN0 SP-8EHI-PLENO RU-RUA 0U-0UADRA ES-ESQ 
UICHO 



PL-PLENO 120! 23 1 26 1 PL-PAGA 33 VEZES 

SP-8EMI-PLENO !20!23!26l SP-PAGA 17 VEZES 

Dll-DIIA Dll-PAHA UC?rC" 





RU-RUA ! 01 ! 02 ! 03 ! 


RU-PAGA 


11 VEZES" 






130 

S 


PRINT" QU-QUADRA 


: ©8 tut 


0U-PAGA 


8 


VEZE 


107 1101 


ES-PAGA 


5 VEZES 








ES-E8GUICH0 1181211 


C1-C2-C3 


2 VEZES" 






140 

S 


PRINT" 


117! 201 


D1-D2-D3 


2 


VEZE 


1161191 


VE-PR-IM 


1 VEZ 










ME-MA-PA 


1 VEZ" 






150 


FOR AA-1 TOA* NEXT ISET <57,19)iSET<58,19> ISET (61 , 22) ISET < 60 , 


,22>* 



SET < 66,251 1 SET ( 67,23) * SET < 54 , 2 V > * SET (33,29 > «SET <54,41)*SET( 53,41 
> IGOSUB 1020 

160 PR INT"MENOR ! HE 1 DE 01 A 18 
MAI OR I HA I DE 19 A 36 

Cl - 101! 04 I ! 34 1 

C2 - 1 02! 05! 1351 

C3 - 103.06! 1361 

0 ZERO E' DA BANCA 

170 PR INTI PRINT "*••*»* •»•*••••***••*• COMANDOS NO TECLADO •••••• 

cacife »’ da 100 flchas, para adquirlr outro t 

ecle <K>." 

180 PR INT"Quant I dade da flchas aclaa da 900 val para a aaaorla. 
Jogador** < A > (B> <C> (0) <E> (tecle para Jogar). 

Para dlraclonar C \ "CHR*<93>" "CNR *<94 ) »PR INT~Da <1> a <9> par 
a apostar a para anular (a) <b> (c) (d) <•>." 

190 PRINT"Para girar a rolata <G). para revar as instruioes (R) 
a para cont ab 1 1 I dada (L>. Maxlao 4 apostas por Jogador ." 1 1 GOS 
UB 10201 IFF-2ORF-4THEN230 

200 CLSlPRINTlPRINTlINPUT''8UANT0S J0GAD0RES (MAXIMO 5>"»AHFA<1 
ORA15THEN2O0ELSEPR INT"NOME DOS PARTICIPANTES COM 4 LETRAS" I A-A*l 
*B-124IN-25*P=641 

210 0=0*1 1 IF0< >A, INPUTA*<0) IA*(0) -LEFTt < A*< 0 > » 4 ) iGOT 0210 

220 CL8*F0R0-1T05*K <0>=1 *C<O>=100*IFA*(O> •"" , A*(0) •" "INEXTEL 

SEA*<0>=A*<0>*" " * A*< 0>-LEFT*< A* (0) , 4 > INEXT 

230 PRINT80." 

"» 

240 PRINT864." I 03 I 06 I 09 ! 12 ! 15 I 18 I 21 I 24 t 27 I 3 

0 1 33 1 36 I I I 1 1 I I I 1 I 1 — 

— I I !"» 

250 PRINTS 192 • " I 02 I 05 I 08 I 1 1 I 14 1 17 ! 20 I 23 I 26 1 

29 I 32 1 33 I I 1 1 1 1 1- 1 1 1 I- 



1 1 1~, 

260 PR INT8320 • " I 01 I 04 I 07 I 10 I 13 I 16 I 19 I 22 I 25 

28 I 31 I 34 I I 1 1 1 1 1 1 1 1 

1 1 1", 

270 PRINT8448." I Cl i C2 I C3 I PR I VE I ME ! MA I PA I IM 

D3 I D2 I D1 I 

", : SET < B . N > i SET ( B ♦ 1 , N ) * IFF-1ORF-4THENGOSUB980IPF 

40 : GOTO750ELSE280 

280 U*=INKEY*iIFU*-CHR*<8>,F-2*G0T0340ELSEIFUt»CHR*<9) ,F-2*G0T 
30ELSEIFU*-CHR*<91 >.F-2*GOTO350ELSEIFU*«CMR*<1O>,F-2*GOTO368EI 
IFU*»"K".D-O»GOTO790ELSEIFUt-"A".A»8lE-0* I-0*P«64t IG0T0400ELSI 
U*“"B" , A-34 IE-4* I -0IP-654 IGOTO400 

290 IFUS«"C".A»6O*E»8«I»O*P«667iGOTO4O0ELSEIFU*-"D",A=86iE-12! 

0 IP-680 IOOTO400ELSEIFU*-~E". A-112IE-16* 1-0 :P»693lGOTO400ELSE IF 
-"1".T«1 tGOTO410ELSEIFU*-"2",T-ZiGOTO41OELSEIFU*-"3".T»3iGOTO' 
ELSE1FU*="4".T»4*GOTO410 

300 IFU*-"5",T-5*GOTO410ELSEIFU*»"6",T=6*GOTO410ELSEIFU*-"7".1 
i G 0T04 10ELSEIFU*«"S" , T-B* G0T04 10ELSEIFU*-"9" , T=9*G0T04 10ELSE IF 
-"S".U*="R"*X*»"U"iRETURNELSEIFU*-"N",U*«Xt*PRINT" N" iRETURN 
310 IFU*-"T", 1000ELSE IFUt-"G",GOSUB970* 0- 1O0IC-1* RESTORE *P»64i 
-RND<37>lFORG-lT037*READFt(G> INEXT *G0T0370ELSEIFUt«"R" , F-4 *D-« 
-641lCLS*GOTO110ELSEIFU*-"L~,D«0*GOTO93O 

320 IFU*-"a",E-l IP-704 1 G0T0960ELSEIFU*»"b" ,E-5*P-717 XGOTO960EI 
IFU*-"c",E«9«P-730*GOTO960ELSEIFUt-"d".E-13*P»743*GOTO960ELSE] 
*-"e",E=i7*P-756*G0T0960ELSE280 

330 RESET <B,N) i RESET <B*1 ,N> IB-B+5I IFB >124THEN8»4iGOTO230ELSE2I 
340 RESET <B ,N) *RESET<B+1 ,N> IB-B-5I IFB < 4THEN8- 124 I GOTO230ELSE2: 
350 RESET (B.N> * RESET < B* 1 . N > *N«N-3 1 IFN< 1 THENN»25*GOTO230ELSE23< 
360 RESET <8,N)iRESET<B*l.N) *N-N*3* IFN12STHENN-1 *GOTO230ELSE23< 
370 0UT255, 0 I0UT255, 1 iPR INT8602 , Ft <C > , *F0RU- 1 T00STEP5© INEXT lC* 
1 *IFC>37THENC-1 10-0*200 

380 IFOO900ORC< >0 , PR INT8602 , " ", IF0RG-1T00STEP! 

NEXT IGOTO370 

390 PRINT8602," " 1 8602 . Ft <C > I * IFD-1THENPR INT 3571 

A BANCA VENCEU" I IGOTO990ELSEFORG-2TOD iREADZ , S* , It, L* . M* INEXT II 

1 GOTO820 

400 GOSUB970 ISET <A,29>tSET<A*l,29)lSET< A*2 . 29 ) iSET < A*3 , 29 > IG01 

80 

410 IF8-4ORB-124THEN280ELSEIFN-1THEN620ELSEIFN-4THEN420ELSEIF1 
THEN460ELSEIFN-10THEN500ELSE IFN-13THEN540ELSEIFN-16THEN580ELSI 
N-19THEN620ELSEIFN-22THEN660ELSE280 

420 IF8-9THENQ4="PL"lU-3*V-3ELSEIFB»14THENQ*-~SP"lU-3lV=6ELSE; 
-19THENGS="PL"*U-6S V=6ELSEIFB=24THEN0t-"SP"*U=6lV— 9ELSEIFB-29* 
N9*="PL"iU-9*V-9ELSEIFB-34THENQ**"BP"tU-9lV-12ELSEIFB-39THENG! 
PL"lU-12lV-12ELSEIFB-44THEN0*-"SP"lU-12*V-15 

430 IF8-49THEN0*="PL"*U-15* V-15ELSEIFB=54THENQ*-"SP"*U-15* V-ll 
SEIFB-59THENG*="PL"iU«18iV-18ELSEIFB-64THEN0*»"SP"*U-18*V=21EI 
IFB-69THEN0*-"PL"iU-21 *V-2lELSEIFB=74THENQt="SP"*U«21 * V-24ELSI 
B-79THEN0*-"PL"tU=24*V-24ELS£IFB-84THEN0t-"SP"lU-24*V«27 
440 IFB-89THEN0*-"PL" *U-27* V=27ELSEIF8“94THEN9t*"SP" xU-27 1 0-31 
SEIFB«99THENQ*»"PL"*U-30*V-30ELSEIF0-104THEN0*«"SP"iU-30:V-33l 
E IFB-109THEN0*-"PL" *U-33* V-33ELSE IFB-1 1 4THENQ*-"SP " iU-331 V-361 
EIFB-1 19THEN0*-"PL" 111— 3610-36 
450 GOTO680 

460 IFB-9THEN0*-"SP" I U— 2IO-3ELSEIFB-1 4THEN0*— ~0U" *U-2 X 0-6ELSE' 
-19THEN0t-"SP"lU-5iV=6ELSEIFB=24THENG*="QU"lU-5*V-9ELSEIFB»29 
N0*-"SP"lU=8*V-9lELSEIFB-34THENQ*-"GU"*U=8lV«12ELSEIFB=39THEN< 
"SP"iU-ll iO-12ELSEIFB-44TMEN8*-"0U"iU=ll 10-15 

470 IFB-49THENG*-"SP"lU=14IV-15ELSEIFB-54THEN9*="GU"*U-14:V=ll 



SE lFB-59THENQt="SP" *U=1 7 * V=18ELSEIFB«64THENQ*»"GU" *U-1 7* V-21ELSE 
IFB-69THENG*-"SP •|U-20*V=21ELSEIFB=74THENQ*-"GU"*U=20lV«24ELSEIF 
B-79THENG*="SP"*U=23iV-24ELSEIF8-84THENGt="GU"*U=23*V=27 
480 IFB-89THENGt="SP"*U=26» V«27ELS£IFB-94THENQi="0U"*U-26* V-30EL 
SEIFB=99THENQ*="SP" *U-29 * V-30ELSEIFB*104THENQ*="GU" iU-29 * V-33ELS 
EIFB=l09THENG*-"SP"lU»32*V-33ELSEIFB-U4THENG*=~GU"iU«32iV-36ELS 
EIFB-1 19THEN0*-"SP~ I U-35 10-36 
490 GOTO680 

500 IFB=9THENa*="PL"IU— 2*0-2ELSEIFB— 14THENa*-"SP"lU— 2I0-5ELSEIFB 
=19THEN0*="PL" IU-5I0-5ELSE IFB-24THENa*-"SP" IU-5IO-8ELSE IFB-29THE 
NQ*-"PL"*U«8* V»8ELSEIFB=34THENG*="SP"*U— 8* V— 1 IELSEIFB-39TMEN0*— " 
PL" IU-1 1 *0-1 lELSEIFB-44THENa*="SP"*U-lll 0-14 

510 IF8=49TH£NG*-"PL" I U- 14 10-1 4ELSEIFB-54THENa*-"SP"lU»l 4 * 0-1 7EL 
SE1FB-59THEN0*-~PL" *U»1 7 1 0-1 7ELSE IFB-64THEN0*-"SP~ IU-17 IO-20ELSE 
IFB-69THENat="PL"*U-20*O-20ELSEIFB=74THENa*-"SP"sU-20sO— 23ELSEIF 
B-79TMENa*="PL" * U-23IO-23ELSE IFB *84 THENa*«"SP"*U— 23*0-26 
520 IFB-B9THENG*-"PL"lU-26*V«26ELSEIFB=94THENGt»"SP"*U-26lV=29EL 
SEIFB-99THENa*-"PL"*U-29lO-29ELSEIFB-104THENa*-"SP"*U-29*O-32ELS 
EIFB-109THENO*- PL" *U=32 I0-32ELSEIF 8=1 1 4TMEN0*-"SP"*U-32* 0-35ELS 
EIFB-t t9TMENQ*-"PL"*U-35*V-35 
530 GOTO680 

540 IFB=9TMEN0i-"SP"*U=l tO=2ELSElFB-14THEN0*«"0U" lU-l *0-5ELSEIFB 
•19THENO*-"SP~*U-4iO=5ELSEIFB»24THENO*-"aU"lU-4iO-8ELSEIFB=29THE 
NG*-"SP"*U»7iV«8ELSEIF8-34TH£NG*-"GU"*U-7lV-lIELSEIFB=39THENGt»" 
SP" *U = 10 * 0-1 1ELSE IFB = 44THENG*-"aU" *U- 10 *0—14 

550 IFB=49THeNGt-"SP"iU-13*V«14ELSEIFB«54THENG*="GU"tU»13tV-17EL 
SE IF8“59THENa* = "SP " * U=16 *U»1 7ELSE IFB-64THEN0S— "0U"*U*16* U-20ELSE 
IFB -69THENQ*— "SP" *U«19*0— 20ELSE IFB-74THEN0*-"9U'' *U-1 9I0-23ELSE IF 
B-79THENO*-"SP"tU=22IO-23ELSEIFB-84THENa*-"0U"lU-22*O-26 
560 IFB-89TMENQ*="SP"*U*25*0»26ELSEIFB— 94THENa*-"9U"*U=25*0-29EL 
SEIFB-99THENQ*«"SP":U=28iV-29ELSEIFB«104THENGt="GU~*U-28*V=32ELS 
E IFB-109THENa*="SP" * U-31 * 0-32ELSEIFB-1 1 4THEN0t-"eU"*U-31 10-35ELS 
E IFB »1 19THEN8* = "SP" * U-34 * 0-35 
570 GOTO680 

580 IFB-9THENQ*-"PL"*U-1 *0-lELSEIFB-14THENe*»"SP"*U«t IO-4ELSEIFB 
-19THENa*-"PL " *U“4 * O-4ELSEIFB“24THEN0*-"SP"*U-4 IO-7ELSE 1FB-29THE 
NO*- "PL" *U-7 I 0-7ELSE IFB-34THENQt="SP" *U»7 IO-10ELSE IFB— 39THEN0**" 
PL" XU-1010-1 ©ELSE IFB=44THEN0*-"SP"*U-10IO-13 

590 IF8-49T HE N0*="PL"IU- 13*0-1 3ELSEIF0— 54THEN0*»"SP" *U— 13*0-16EL 
SE IFB -59 THE NQt* "PL" *U-16*0- 16ELSEIFB-64THEN0*-"SP" *U-1 6 * 0-19ELSE 
IFB =69THENQt="PL" *U“19 1 0-19ELSEIFB— 74THENa*="SP" IU-1 9IO-22ELSEIF 
B»79THENQ*-"PL"*U-22*U«22ELSEIFB-84TMEN0*-"SP"iU-22lU»25 
600 IFB-89THENQt="PL"*U-25l0-25ELSEIFB-94THEN0t="SP"lU-25*0-28EL 
SEIFB»99THENQt="PL"*U=28*O=28ELSEIF8=l04THENat-"SP"*U«28*O-31ELS 
EIFB-109I HE N9t- "PL" *U=31 * 0-31 ELSE IFB-1 14THENQt*"SP" *U=31 *0— 34ELS 
EIFB-1 1 9THEN0* “ "PL" * U-34 10-34 
610 GOTO680 

620 IFB-9THENat="RU"*U-l*O-3ELSEIFB-14THEN0t-"ES~*U=l I0-6ELSEIFB 
- 1 9THENQ*="RU" IU-4 *0-6ELSEIFB-24THENa*="ES" *U»4 10-9ELSEI FB— 29THE 
Nat*"RU" *U«7 I0-9ELSE IFB»34THENai="ES"*U“7*0=12ELSEIFB=39THEN9t=" 
RU"lU«10*O-12ELSEIFB-44THEN9t-"ES~ *U«1 01 0-15 

630 IFB=49THEN0t="RU" *U-13*0- 15ELSEIFB=54THEN8S«"ES" IU-13IO-18EL 
SEIFB»59THEN0*-"RU"*U-16*O-18ELSEIFB=64THEN0t-"ES"iU-16SO-21ELSE 
IF8=69THEN8t-"RU"*U-19IO-21ELSEIFB-74THENa*="ES"*U-19tO-24ELSEIF 
B-79THENQt="RU"lU-22*0-24ELSEIFB-84THENat»"ES"*U-22 10-27 
640 IFB-89THENat-"RU" I U-25* 0-27ELSEIFB«94THEN0t-"ES" *U-25« O-30EL 
SE IFB=99THEN0*="RU" *U-28*O-30ELSEI FB- 104THENOt-"ES" *U“28 10-33ELS 
E IFB- 1 09THENO* ="RU" * U-31 *0«33ELSE IFB- l 14THENat="ES"*U=31 I0-36ELS 
EIFB-119THEN0t-"RU" I U-34 *0-36 
650 GOTO680 

660 IFB =9 THE NQt- "Cl" *U— 1 *0-34 tGOTO680ELSEIF8=19THEN0*»"C2"lU— 210 
-35*GOTO680ELSEIFB-29THEN9t="C3"lU=3*O-30*GOTO680ELSEIFB-39THENQ 
t-"PR"*U»0SO=0*GOTO680ELSEIFB-49THENat="OE"lU-0*O«0iGOTO680ELSEI 
FB-59THENQt-"ME" I U-l : 0- 1 8 1 GOTO680 

670 IFB=69THENG*-"MA"*U«19iV=36ELSEIFB-79THENQ*-"PA"lU-OlV=0ELSE 
IFB-89THENQ*-" IM" *U»0 * V=0ELSEIFB=99TMENG4="D3" *U-25* V-36EL8E IFB- 
109THENQi="D2" *U- 13*0-24ELSEIFB— 1 19THENQ*="D1" I U»1 SO-12ELSE280 
680 E«E*l I I»I*1UFE>21THENF=2IQOTO2B0ELSEDD-INT<E/4*.75>*IFI >4AN 
0F< >4 THENDD-DD- 1 IGOTO780 

690 IFF=4THENU»Q<E> IV-R(E) *GOTO710ELSEG*<E>-Gt*G*=""lG<E>«U*R<E> 
-0*9<E)-T 

700 IFC<DD1<S<E 1 ,S<E>»O*GOTO780ELSEP-P*64IX<E>«P*PRINT3P.G*<E>" 
", IGOSUB720*C<DD)-C<OD)-S<E) iPP-640! IFE-17ORE-18ORE-19ORE-20THEN 
PRINTS<E) , t GOTO7S0ELSEPR INTS < E>" I ", *GOTO750 

710 IFX (E > -0ORS<E ) -0THEN680ELSE IFE- 17ORE-1BORE-19ORE-20THENPR INT 
8X<E> ,Gt<El" ", IGOSUB720SPRINTS(E> S * GOTO680ELSEPR I NT8X< E ) ,Gt<E>" 
" , IGOSUB 720* PR INTS ( £)"!",* GOT 0680 
720 IFU<10THENPR INTU8ING"0N ",U,ELSEPRINTUSING"aR ",U, 

730 IF0< 10THENPR INTUSING"0R" ,0,ELSEPR INTUSING"HR" ,0, 

740 RETURN 

750 D-D+1IPRINT8PP ,K<D) *At<D> I * IFC<D> < -0THENPRINT" 000' , ELSE IFC < 
DX10THENPR INTUS ING" 000" |C < D > lELSE IFC < D ) < 1 00THENPR I NTUSING" 0NN 
",C <D 1 lELSEPR INTUS1 NG" 000", C<D) , 

760 PP-PP*13* IFD< 5THENPR INT" I " , * GOTO750ELSED-0 
770 IFF-3THEN820ELSEIFF-4THENE-0IGOTO680ELSE280 

780 GOSUB970 1 PR I NT 8592, "L I MITE DE APOSTAS DO JOGADOR "At<D01,*G0 
TO280 

790 FORU-lT015*PRINT81 000, ""*NEXT *PR INT920 , "COMP R A DE CACIFE".,, 

" NA SUA OEZ TECLE <S/Nl.",Ot=" COMPROU 100 FICHAS"lR*«" CACIFES 
NA MEMOR I A" *0-0 

800 D-D* l*PRINTAt(D),l GOSUB280I IFU*< >X*.PRINTO*«K <D1-K <D>*1 «C(D> 
»C< Dl+l 00* IFK <D) >9THENK<D*5>=K <0*51*8*0 < 0 >-K < Dl-B* PR INT" "K(D*5 
l,Rt 

810 I FD 14THENG0SUB 1020*0-0 1 F-4 1 GOTO230ELSEPR INT * GOT 0800 

820 PR INT8620 , "APUR A_A0", *F-3*L=L*l *M-0i T -0*P t-G*< L 1 * R -0 ( L 1 *S*R < 

L1*T-S<L1*IFL 120THEN990 

830 IFT-0THEN820ELSEIFP*-"PL"ANDR— ZANDS-Z ,M=T *35*T IGOT O920ELSEIF 
P*-"SP" ANOR -ZANDS»Z*30RPt="SP"ANDR-ZANDS-Z* 10RP*-"SP"ANDR-Z- 1 AND 
8-ZORPt-"SP"ANDR«Z-3ANDS-Z.M-T-l7*T*GOTO920 

840 IFPt«"RU"ANDR-ZANDS-Z*20RPt»"RU"ANDR-Z-lANDS-Z*10RPt*"RU"AND 
R-Z-2ANDS-Z , M-T« 1 1 *T * GOTO920 

850 IFPt-"QU"ANDR-ZANDS-Z*40RPt»"aU~ANDR=Z-lANDS=Z*30RPt-"aU"AND 
R«Z-4ANDS»Z0RPt-"aU"ANDR*Z-3ANDS-Z*l THENM-T »8+T 1 GOT 0920 
860 IFPt— "ES"ANDR» ZANDS- Z*50RPt="ES"ANDR“Z-lANDS-Z*40RPt="ES" AND 
R»Z-2ANDS»Z*30RPt»"ES"ANDR=Z-3ANDS-Z*20RP*-"ES"ANDR»Z-4ANDS-Z*10 
RPt-"ES"ANDR-Z-5ANDS-Z . M»T»5*T * GOTO920 

870 IFP*-"D1 "ANDR-1 ANDS-12AN0Z >- 1 ANDZ< — 12THENM-T *T*T t GOTO920ELSE 
IFP t-"D2"ANDR-13ANDS«24ANDZ 1-13ANDZ < — 24THENM— T *T*T IGOTO920ELSE IF 
P*-"03"ANDR = 25ANDS-36ANDZ >-25ANDZ<-36THEMM-T *T*T IGOTO920 
880 IFMt="Cl"ANOP*-"Cl".M=T*T*T*GOTO920ELSEIFMt-"C2"ANDPt="C2".M 



»T*T *T IGOTO920ELSE IFMt-"C3"ANDPt-"C3" ,M-T *T+T I GOT 0920 

890 IFI*="ME"ANDP*="ME" . M-T+T IGOTO920ELSEIF I t="MA" ANDPt«"MA" . M-T 

♦ T SGOTO920 

900 IFSt-"OE"ANDPt="OE",M-T*TiGOTO920ELSEIFSt=~PR"ANOPt-"PR".M-T 
*T *6010920 

910 IFL*="PA"ANOP*="PA" , M-T *TELSEIFL*=" IM"ANDP*=" IM" , M»T*T 
920 D— 0SPP-640IX-INT (L/4+.751 IPR INT8620 . " ,:C<X1-C<X1* 

Ml IFC (XI 1900THENC < X*5 1-C< X*5 1*C < X 1-800SC < X 1 *800*GOTO750ELSEIFC< X 
1 < 100ANOC < X*5 1 < 900THENC <X1»C<X1*C<X*5)*C<X*51*0* GOTO750ELSE IFC < X 
1< 100ANDC<X*51 1900THENC<X 1-800 *C<X*51-C<X*5 1-800 IGOTO750ELSE75O 
930 FOR W-1T015* PR INTS1000 , "" * NEXT *CLS*F0RD»1 T05iH< D 1-<C<D*51+C<0 
11“<K<D1-1001“<K< D*5 1*1001 iPR I NT At ( D 1 " "H<D1" FICHAS'iNEXT 

940 PRINT* INPUT"OALOR DA FICHA EM Cr t" , T* FORD-1 T05* IFH < D1 < 0THENS 
*-" DEOE Cr t"ELSES*-" RECEBE Cr*" 

950 PR INTAt < D 1 " "St , * PR INTUS I NG' RNMMa . " , ABS< H< D 1 1 » Y *FF-FF*H< D 1 IN 
EXT IPRINT8740, "SAL DO DA BANCA Cr t"FF-Y •- 1 *F=4 :FF-0 * GOSUB 1020*0-0 
1GOTO230 

960 F0RD-ET0E*3 SR — INT (E/4+.751 *C<R 1-C<R 1*S <D l *S < D 1 -0 * PR INT8P . " 

", IP =P *64* NEXT SD-0 *PP=640S F-5 IGOSUB 9801 GOTO750 
970 PRINT8576," 

", IRETURN 

98© PRINT8576," QUEM JOGA ? <A> <B1 <C> < 

D> <E> ", *P-641 iRETURN 

990 FORD-1TO20*S< D1 -0 INEXT *D-0*L-0iPR INT8619, " TECLE <T>", I 

GOTO280 

1000 PRINT8704." 



1010 PR INT8B32, " 

", « F-2IGOSUB900IGOTO280 
1020 PR INT8980. "Barra de eapaio", 

1030 Ut=INKE Yt * IFUt-CHR* < 321 , CLS* RE TURNELSE 1 030 

1040 DAT A00-OERDE , 32-0ERMELH0, 15-PRE TO. 1 9-OERMELHO . 04-PRETO . 21 -0 
ERMELHO , 02-PRETO . 25-OERMELHO , 17-PRETO, 34-OERMELHO , 06-PRETO , 27 -OE 
RMELMO. 13-PRET0.36-0ERMELH0, 1 1 -PRETO , 30-OERMELHO, 08-PRETO 
1050 DATA23-0ERMELH0. 1 0-PRETO . 05-OERMELHO . 24-PRETO , 1 6-0ERMELH0, 3 
3-PRETO, 01-OERMELHO ,20-PRETO. 1 4-OERMELHO ,31 -PRETO. 09 -OER MEL HO. 22 
-PRETO , 18-VERMELHO , 29-PRETO . 07-VERMELHO , 28-PRETO , 12-VERMELHO . 35- 
PRETO . 03- VERMEL HO , 26-PRETO 

1060 DATA32.VE.MA.PA.C2. 15. PR. ME, IM.C3. 1 9 . VE , MA . IM . Cl . 4 . PR , ME , P A 
,C1 .21 .VE.MA, IM.C3.2.PR . ME . PA, C2 . 26 . UE . MA , IM. Cl , 1 7, PR , ME . IM.C2.3 
4,U£.MA.PA,C1 

1070 DATA6.PR . ME , P A, C3. 27 . VE.MA. IM.C3, 13, PR .ME. I M , C 1 . 36 , VE , MA , PA 
, C3 . 1 1 . PR . ME , IM . C2. 30 . VE . MA . P A , C3 . 8 . PR . ME , PA . C2 , 23 . VE . MA . IM. C2 , 1 
0, PR. ME. PA. Cl 

1080 DATA5.VE.ME. IM . C2. 24 , PR . MA . P A , C3 . 16 . VE , ME , PA ,C1 . 33, PR . MA. IM 
.C3.1.UE.ME.IM.C1. 20. PR . MA . PA , C2, 14, WE. ME. PA, C2, 31, PR, MA. IM.C1.9 
.UE.ME.IM.C3 

1090 DATA22 , PR ,MA , PA , Cl . 18 . VE , ME , PA.C3 , 29 . PR . MA . IM. C2. 7, VE , ME , IM 
.Cl .28. PR ,MA, PA. Cl , 12 , VE .ME . PA . C3, 35 , PR . MA . IM. C2 . 3 . VE , ME . IM.C3.2 
6.PR.MA.PA.C2 
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• Em MS n9 46, no programa Missio Imposslvel, p4g. 55, a lis- 
tagem apresentou erros em algumas linhas. Na linha 86, ap6s "PA- 
RABENS", o correto 6 haver apenas uma vi'rgula, enquanto que a 
linha 88 j£ deve comepar com PRINT. Confira abaixo como ficam 
as linhas. 

66 2RINTC!R$(23) : ?RI STT AB ( 6 ) " P A R A B E N S I * ,TAB( 6 ) STRINGS t 1 

5 .CHRS i 1 3 1 ) ) : PRXKTS2C8 , "Seu escore dos 5 naiores do dia. 

•; 

86 PRINTS658,* * 

• Em MS n? 48, na Rodada MS, programa Projeto de filtroi 
passa faixa, p^g. 75, a listagem apresentou incorregdes. Na linha 
1970, o M deve ser substitu^do por N, ficando assim: 1970 PLOT 
37 + N,6. 

Tamb6m ficou faitando a ultima linha da listagem, ou seja, a li- 
nha 5010 GOTO 10. 

• Em MS n? 50, na reportagem O Mercado Editorial de Infor- 
mfttica, pdg. 10, no quadro com os livros mais vendidos, saiu erra- 
do o enderepo da Editora Campus. O endere^o certo 6: Rua Barao 
de Itapagipe, 55, CEP 20261, RJ. 

• Em MS n? 50, no artigo A funpao UDG do TK90X, p§g. 42, 
quarto partgrafo, a sexta linha se utiliza de 8 bits.*'), apresen- 
tou erro. A frase correta 6 "...se utiliza de 8 bytes." .J$ na figura 
10, a linha 9010 apresentou falhas. Corrija-a para: 

9010 SAVE ’garotOQ’CODE USR ’a", 

• Em MS n9 50, no programa Mapa ou Maca, p4g. 36, listagem 
1, a linha 6000 saiu com erro; no lugar de OF, deve-se usar 60. A 
linha fica assim: 

6000- 60 00 C2 00 C4 00 ca 00 

• Em MS n9 50, Curso de FORTH, pig. 60, no programa se- 
guinte ao d6cimo quarto pardgrafo, o trapo (-) depois de I deve 
ser substitufdo por um ponto (.). O programa fica assim: 

* MGSTRERETORNO 5 0 DO I. LOOP 

• Em MS n9 50, no programa Mapa ou Maca, p$g. 34, houve 
erro no d6cimo quinto pardgrafo. O correto 6: "A linha 1 10 coloca 
o enderepo do infcio da tabela de formas (24576 em decimal, ou 
seja, 6000 em hexadecimal);". 
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Imprimir em quatro diregoes ou armazenar uma tela na memoria do 
seu micro, compativel com o ZX Spectrum, sao apenas alguns dos 
recursos que voce conseguira com o uso deste Monitor grafico. 



Monitor grafico 

Divino Carlos R. Leitao 



O s usuarios da linha ZX Spectrum tern agora um pro- 
grama para auxilia-los na cria 9 ao de telas de apre- 
senta^ao, menus e qualquer tipo de grafico que uti- 
lize apenas os caracteres, inclusive os redefinidos. 
Este Monitor Grafico e uma ferramenta que permitira o uso 
de alguns recursos grdficos do seu micro, diretamente no video, 
enquanto voce cria uma tela. Alguns dos comandos disponiveis 
sdo: INK; PAPER; FLASH; BRIGHT e INVERSE, sendo que o 
comando OVER tambem foi implementado, mas apenas para 
que o efeito possa ser visto no video, pois para armazenar os 
dados referentes a esse comando nas telas criadas, seria neces- 
sdrio aumentar o tamanho das mesmas em pelo menos 704 by- 
tes e uma das caracteristicas das telas do monitor d justamen- 
te economizar memdria. Pordm, como voce poderd ver, este 
comando ndo fara fait a. 

Voce ainda podera encher o video com um carater; copiar a 
tela na impressora; imprimir em quatro dire^des; inserir e su- 
primir caracteres; fazer um SCROLL para cima e para baixo; e 
se o seu micro e um TK90X, poderd acessar a fungao UDG 2, 
diretamente no Monitor. 

Uma das vantagens de uma tela criada pelo Monitor, alem 
dos recursos grdficos prontos para serem usados, e que cada 
tela gasta apenas 1625 bytes e ja traz incluida uma rotina de 
impressdo em Assembler, tendo ainda um UDG prdprio, que 
ndo afeta o uso do UDG presente na memdria. As telas criadas 
por este processo poderdo ser alocadas em qualquer posi^So 
disponivel da RAM e chamadas por RAND USR, sendo que a 
unica preocupa^do do usudrio sera deixar livre na memdria um 
espa 90 de 1625 bytes para cada tela que desejar juntar ao seu 
programa. 

Apds criar uma tela, grave-a em fita cassete usando a op 9 §o 
7 do menu. Para recuperar a tela gravada, use o comando 
LOAD “ “ CODE XXXX, onde XX70( e o endere 90 de inicio 
da tela e tambem serd o endere 90 de chamada para imprimi-la 
no video. 

OBS.: Para chamar uma tela diretamente de uma rotina em 
Assembler, o par BC deverd ser carregado com ° valor XXXX 
antes de ser executado o comando CALL XXXX . portanto ndo 
esque 9 a de carregar o par BC ou havera problemas. 

Hd tambdm a op 9 do de gravar as telas no formato padrdo do 
micro, com a op 9 do 5 do menu, ou ainda gravar e carregar 
apenas o UDG. Com isto, voce podera criar, em fita cassete, 
um banco com vdrios UDGs diferentes. As op 90 es 1 e 2 do 
menu servem respectivamente para iniciar a cria 9 do de uma 
tela ou editar a tela que estiver na memoria. Cuidado ao usar a 



op 9 do 1, pois se houver alguma tela na memoria, ela serd apa- 
gada. 

O Monitor Grafico ndo permite que se trabalhe com telas 
que ndo tenham sido criadas por ele, pois usa um buffer pr6- 
prio de trabalho com um sistema especifico de armazenamen- 
to distribuido da seguinte forma: os 49 bytes iniciais contem a 
rotina de impressdo que acompanha cada tela, depois vem 
1408 bytes, altemando cardter e atributo, ou seja, primeiro 
byte = CHR$; segundo byte = atributos do CHRJ anterior, 
e assim sucessivamente ate totalizar as 32 colunas e 22 linhas; 
quanto aos 168 bytes restantes, sdo reservados para os carac- 
teres do UDG proprio que cada tela contdm. 

Alem das rotinas em linguagem de maquina, o programa 
tern uma parte em BASIC, para facilitar o uso das rotinas pa- 
drdo de grava 9 do e UDG 2. 

Para digitar o programa, use o “Monitor Assembler no 
TK90X” (publicado em MS n? 51). Inicialmente, deverd ser 
criada a linha 1 REM com 4800 bytes para receber os dados 
em hexadecimal da listagem 1. Voce ird reparar que ndo hd 
4800 dados nesta listagem, isto porque os bytes restantes serdo 
preenchidos pelo prdprio programa ao ser utilizado. Digite os 
dados com aten 9 §o e no final entre com a listagem abaixo, 
usando-a para conferir o trabalho: 



100 REM EXECUTE COM -> RUN 10* 

tie LET s-e 

120 FOR F *2339 TO 26633 STEP 2 

130 LET S"S+PEEK F-PEEK <FM> 

140 PRINT AT 10. 13|F 

150 NEXT F 

160 IF S-4194 THEN PRINT TAB 2| 

"OKI OS DADOS ESTAO CORRETOS."! 

STOP 

170 PRINT ' FLASH llTAB 5|"HA’ 

ERRO DE DIG1 TACAO . " . T AB 5|~C0NFI 
RA OS DADOS...".* STOP 

Se o resultado for negativo, use o “Monitor Assembler no 
TK90X” para conferir a entrada de dados e corrija os erros. 
Apos ter certeza de que o programa foi digitado corretamente, 
de o comando direto POKE 23756,0 para proteger a linha com 
as rotinas em Assembler, e ela entao ird se transformarem linha 
0 e ndo podera mais ser editada. Em seguida, elimine o “Moni- 
tor Assembler no TK90X” e as linhas de conferencia para 
entdo entrar com a listagem 2. Antes de testar o programa, gra- 
ve tudo com o comando direto: SAVE “MG” LINE 7. 

OBS.: Se o seu micro ndo 6 um TK90X, mude a linha 1 1 
para 11 GOTO 9. 



COMO USARO MONITOR 

Na figura 1, voce tern uma tabela com as teclas de controle 
do Monitor e o seu significado, sendo que algumas devem ser 
pressionadas em conjunto com CAPS SHIFT(CS) e outras com 
SYMBOL SHIFT(SS). 0 cursor indicard qual tipo de impres- 
sdo esta sendo usada. As converses sao: 

C - imprime maiusculas ou minusculas junto com CS; L - 
imprime minusculas ou maiusculas junto com CS; G — impri- 
me apenas os caracteres grdficos; S — imprime apenas os sim- 
bolos grdficos; e U - imprime apenas os caracteres redefini- 
dos. 

ROTINAS DE 1MPRESSAO NO VIDEO 
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Figura 1 Figura 2 



Se voce ja programa em linguagem de maquina ou estd inte- 
ressado em aprender, continue a leitura pois a partir de agora 
serdo explicadas algumas das tecnicas de impressdo no video 
em Assembler. 

Quern jd utilizava linguagem de mdquina nos modelos Sin- 
clair (ZX-81), sabe que para imprimir no D-File basta colo- 
car o c6digo do cardter a imprimir no endere 90 corresponden- 
te a posi 9 do desejada do D-File. Nos compativeiscom o ZX 
Spectrum, a area correspondente ao D-File dos modelos ZX-8 1 , 
que a partir de agora serd chamada apenas de MV (Memoria de 
Video), tern 6144 pos^des e mais 768 bytes que correspon- 
dem a area de atributos, - ATTR, para simplificar - portanto 
a impressdo em Assembler fica um pouco mais complicada. 

Em primeiro lugar, para se usar a MV 6 necessario abrir an- 
tes um canal de comunica 9 do com o processador de video. A 
maneira mais facil de faze-lo d usando uma rotina da ROM. 
Veja como, no exemplo 1 : 



3E02 LD A.02H 
CDOl 16 CALL 1601H 
C9 RET 



lA-2 RUE E' 0 CANAL DA MW 
lABRE 0 CANAL 2 
IRETORNA 



OBS.: 0 canal 2(02H) cOrresponde apenas ds 22 primeiras 
linhas de video, de 0 a 21 ; para se usar as linhas 22 e 23, que 
chamaremos de linhas de edi 9 do, o canal aberto terd que ser 
0(00H) ou 1(0 1H). Voce deverd ter bastante cuidado quando 
desejar imprimir nestas duas dreas do video, pois, apesar de es-‘ 
tarem em seqiiencia, o uso das mesmas d bem distinto. Mais d 
frente, voce verd outras explica 90 es sobre as diferen 9 as das 
mesmas. 

Apos abrir o canal de video, podemos imprimir direto na 
MV e a maneira mais prdtica ainda e usar as rotinas da ROM, 
mais esnecificamente o conhecido (para os jd iniciados em As- 
sembler) RST 10. Para quern ndo conhece, o RST 10 e um co- 
mando de um s6 byte que da acesso ds rotinas de impressdo 
dos micros Sinclair. Veja o exemplo 2: 



3E30 LO A.30H |A-4B RUE E* CODIGO 00 CHRS • 

07 RST 1RH t IMPRIME 0 CHR* CONTIDO EM A 

CV RET IRETORNA 

Como pode ser visto, ndo d tao dificil assim, mas ndo se ale- 
gre antes do tempo, pois, com o que vimos atd agora, o mdxi- 
mo que podemos conseguir e imprimir um cardter descontrola- 
damente na MV, sem saber qual e a sua cor, fundo ou mesmo 
posi 9 do onde serd impresso. Para controlar estes pequenos de- 
talhes, existem os caracteres de controle, que chamaremos de 
CTRL, ao todo sdo 32. Na figura 2, voce tern uma tabela com 
a indica 9 do das fun95es para as quais estes caracteres podem 
ser utilizados na impressdo. 

Os codigos de 0(00H) a 3(03H) devem ser usados seguidos 
de CALL 1601H (veja exemplo 1) para abrir os canais corres- 
pondentes, sendo que o cani 3(03H) corresponde a impresso- 
ra. Jd os CTRL de 6(06H) a 23( 1 7H) — com exce 9 do de 7(07H); 
14(0EH) e 15(0FH) que nao devem ser usados na impressdo 
- sdo todos usados seguidos de RST 10. Veja o exemplo 3: 



3E16 


LD 


A.16H 


lA-22 OUE E * 0 CTRL DE PRINT AT 


D7 


RST 


1RH 


tPREPARA PARA RECE8ER PARAMETROS 


3ER5 


LD 


A.RSH 


«A=5 GUE E’ 0 NUMERO DA LINHA 


D7 


RST 


1RH 


iPOSICIONA NA LINHA 


3ERA 


L0 


A.RAi 


|A-ie QUE E’ 0 NUMERO DA COLUNA 


07 


RST 


1RH 


iPOSICIONA NA COLUNA 


C9 


RET 




IRETORNA 


Ap6s executar 


esta seqiiencia, o computador estara pronto 



para imprimir na linha 5, coluna 10, o cardter que for ordena- 
do. Aten 9 do, isto s6 6 vdlido se o canal da MV corresponde ds 
linhas 0 a 21 (exemplo 1) jd tiver sido aberto antes. 

Para estabelecer os parametros de cor, brilho e outros re- 
cursos de seu micro, use os CTRL de 1 6( 10H) a 21(1 5H). Veja 
o exemplo 4: 



3E1R 


LD 


A, 1#H 


|A»16 0UE E' 0 CTRL DE INK 


D7 


RST 


1»H 


iPREPARA PARA RECEBER PARAMETROS 


3ER7 


L0 


A,*7H 


lA-7 OUE CORRESPONDE A COR BRANCA 


D7 


RST 


1«H 


IMUDA INK PARA BRANCO 


C9 


RET 




IRETORNA 



Para mudar o PAPER, executa-se a mesma seqiiencia, sendo 
que os cddigos de cor variam de 0(00H) ou preto, atd 7(07H) 
que e a cor branca, o que corresponde d dispos^ao das cores 
no teclado. Para mudar os outros parametros (FLASH; BRI- 
GHT; INVERSE e OVER), usa-se antes do segundo RST 10 
apenas 1(01H) que significa ligado ou 0(00H) que significa des- 
ligado. Veja exemplo (5) com o FLASH: 



3E12 


LD 


A, 12H 


lA-18 OUE E ’ 0 CTRL DE FLASH 


D7 


RST 


UN 


iPREPARA PARA RECEBER PARAMETROS 


3E01 


LD 


A.01H 


|A-1 OUE CORRESPONDE A LIGADO 


D7 


RST 


1«H 


IMUDA FLASH PARA LIGADO 


C9 


PET 




IRETORNA 



Ap6s executar o ultimo exemplo, o cardter a ser impresso 
estaria com o FLASH ligado, ou seja, ficaria piscando, alter- 
nando seu INK e PAPER. 

Os ultimos exemplos valem para todos os CTRL que podem 
ser usados na impressdo, basta chamar RST 10 ap6s o acumu- 
lador ter sido carregado com o CTRL desejado e depois repe- 
tir a opera 9 do tendo sido o acumulador carregado com um c6- 
digo especifico da fun 9 §o, o qual pode ser o valor de uma cor, 
a posi 9 do de uma coluna ou o correspondente a ligar e desligar 
a fun 9 do. A unica exce 9 do d o CTRL de PRINT AT que preci- 
sa de dois parametros apos ser acionado, ou seja, linha e colu- 
na, nesta ordem. Como op 9 ao para o PRINT AT, voce pode 
usar a rotina da ROM a partir de 8202 (200AH), sendo que an- 
tes e necessdrio carregar o par BC com o valor da linha (C) 
e coluna (B). Veja no exemplo 6, o que acontece se usarmos 
esta rotina: 



3E16 


LD 


A, I6H 


|A«22 OUE E' CTRL OE PRINT AT 


D7 


RSI 


1 OH 


IPREPARA PARA RECEBER PARAMETROS 


79 


LD 


A.C 


IA-VAL0R DA LINHA CONTIDO EM C 


07 


RST 


10H 


iPOSICIONA LINHA 


78 


LD 


A. 8 


lA-WALOR DA COLUNA CONTIDO EM B 


07 


RST 


10H 


IPOSICIONA COLUNA 


C9 


RET 




IRETORNA 
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Todos os exemplos mostrados atd agora permanecem depois 
de usados, ate que seja executada uma rotina que os modifi- 
que, ou seja, se voce abrir um canal da MV, ele permanecerd 
aberto at 6 outro canal ser ativado; como algumas rotinas do 
sistema podem desativar este canal, 6 conveniente que ele seja 
aberto toda vez que se iniciar qualquer rotina de impressdo. 
Quando se imprime um cardter (veja exemplo 2), a posi^do do 
cursor avan^a uma coluna ou, se for a ultima coluna, volta a 
coluna 0 e avanija uma linha; ao atingir a linha 22 sera solicita- 
do um SCROLL. 

Na area de edi£do acontece algo semelhante, mas as linhas 
sdo contadas de baixo para cima, ou seja, a linha 23 passa a 
ser a linha 0. Uma outra diferen^a da Area de edi^o e que para 
se imprimir com seguran 9 a, nesta drea, d necessario que ela 
esteja limpa. Se tentarmos a impressao de um cardter sobre 
outro id existente, serd executado um SCROLL no video 
todo. Portanto, use a drea de edi 9 do com muito cuidado 
para ndo perder o controle da impressdo. 

Para deixar mais claro o uso do CTRL, o exemplo a seguir 
mostra como se pode encher o video com um cardter, que serd 
o correspondente ao A do UDG, cujo cddigo d 144 (90H). 
Para cor de fundo (PAPER), serd colocado o verde e a cor do 
cardter (INK) serd o preto, que devera ficar piscando (FLASH 
= 1 ), e tambdm ndo terd muito brilho (BRIGHT = 0 ), aldm de 
ndo ser invertido (INVERSE = 0 ) e ndo ter transparency 
(OVER = 0 ). Aqui vale um aparte para os que ainda ndo com- 
preenderam o comando OVER: a sua fmalidade d criar prio- 
ridade de impressdo, um cardter impresso com OVER = 0 
sobrepde um outro quando for impresso, ocupando todo o 
espaijo; jd um cardter com OVER = 1, serd misturado com o 
cardter que estiver abaixo dele, criando um novo desenho que 
corresponded a mixagem dos dois, dando ainda a ilusao de 
que o cardter com OVER = 1 e transparente. Vamos entlo 
ao exemplo 7 : 



3E62 


LD 


A.62H 


CD6116 


CALL 


1661H 


816666 


LD 


BC.66H 


CD6A26 


CALL 


266AH 



3E16 


LD 


A, 16H 


D7 


RST 


16H 



(A-2 QUE E ' 0 CANAL DO MV 
( ABRE CANAL 2 

(B-6 (COLUNA) C-6 (LINHA) 
(ROTINA DA ROM OUE ROSICIONA 
(PRINT AT ATRAVES DE PARAMETROS 
(DO PAR DE REGISTR ADORES BC 

(A-16 QUE 6* 0 CTRL DE INK 
(PREPARA PARA RECEBER PARAMETROS 



3E66 


LD 


A , 66H 


( A-6 QUE CORRESPONDE A COR PRETA 


D7 


RST 


16H 


(MUDA INK PARA PRETO 


3E11 


LD 


A.11H 


(A-17 QUE E' 0 CTRL DE PAPER 


D7 


RST 


18H 


(PREPARA PARA RECEBER PARAMETROS 


3E64 


LD 


A , 04H 


(A-4 QUE CORRESPONDE A COR VERDE 


D7 


RST 


16H 


(MUDA PAPER PARA VERDE 


3E12 


LD 


A.12H 


( A-1B QUE E’ 0 CTRL DE FLASH 


07 


RST 


16H 


(PREPARA PARA RECEBER PARAMETROS 


3E61 


LD 


A.61H 


( A-l QUE CORRESPONDE A LIGADO 


07 


RST 


16H 


(MUDA FLASH PARA LIGADO 


3E13 


LD 


A.13H 


( A-19 QUE E’ 0 CTRL DE BRIGHT 


D7 


RST 


16H 


(PREPARA PARA RECEBER PARAMETROS 


3E68 


LD 


A.60H 


(A-6 QUE CORRESPONDE A OESLIGADO 


D7 


RST 


16H 


(MUDA BRIGHT PARA DESLIGAOO 


3E14 


LD 


A , 14H 


:A-26 QUE E’ 0 CTRL DE INVERSE 


D7 


RST 


16H 


(PREPARA PARA RECEBER PARAMETROS 


3E66 


LD 


A.66H 


(A-6 QUE CORRESPONDE A OESLIGADO 


D7 


RST 


16H 


(MUDA INVERSE PARA OESLIGADO 


3E15 


LD 


A.1SH 


(A-21 QUE E' 0 CTRL DE OVFR 


D7 


RST 


16H 


(PREPARA PARA RECEBER PARAMETROS 


3E66 


LD 


A • 06H 


(A-6 QUE CORRESPONDE A OESLIGADO 


D7 


RST 


16H 


(MUDA OVER PARA DESLIGAOO 


3E96 


LO 


A.90H 


( A® 144 QUE E' 0 CODIGO 00 PRIMEIRC 
(CHRS DO UDG 


D7 


RST 


16H 


(RETORNA 



Esta rotina sozinha ndo tern muita utilidade, afinal uma 
tela cheia de caracteres piscantes ndo serve para muita coisa, 
mas se voce conseguir entender o funcionamento da mesma, 
conseguird imprimir em linguagem de mdquina qualquer card- 
ter. 

0 programa que acompanha este artigo e um bom exemplo 
do que pode ser feito quando se domina bem as tecnicas de 
impressdo do seu micro. £ claro que, para se chegar a criasdo 
de um bom programa, ndo basta dominar a impressdo em 
Assembler, mas ja d um bom passo para se chegar Id. 

As duvidas que ainda persistirem apos a leitura atenta artigo 
e a andlise dos exemplos, serdo respondidas com prazer pelo 
autor, mas antes procure certificar-se de que ndo d capaz de 
responde-las sozinho. Garanto que assim seu aprendizado serd 
muito mais proveitoso. 



Divino Carlos R. Leitio 6 formado em Desenho Mecinico pelo Senai. I: 
Pro gram ad or de microcomputadores M trSs anos, tendo inclusive alguns 
programas comercializados pela Ciberne Software. Atualmente, trabalha 
no CPD da revista MICRO SISTEMAS, onde desenvolve jogos e aplicati- 
vos em equipamentos que utilizam o micro processador Z-80. 
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24635 3E 4F D7 3E 4C 07 IB 6C - 743 

24663 21 1C 66 CD DB 63 21 3? - 776 

24671 66 CD CF 63 CD FA 62 3A - 1224 

2467? BC 67 FE 55 28 18 21 E6 - 951 

24687 5A 3A B6 67 B7 C4 EC 63 ■ 1147 

24693 CD F6 63 23 3A B7 67 87 - 1166 

24163 C4 EC 63 CD F6 63 CD EA - 1514 

24111 62 CD 68 63 FE E2 26 66 ■ 1624 

24119 CD 92 62 C3 49 5D FE 66 « 1676 

24127 26 13 3A BC 67 FE 43 26 - 753 

24133 64 3E 4C 18 62 3E 43 CD - 562 

24143 88 62 C3 B7 5D FE 6F 26 » 1654 

24151 64 3E 47 18 F2 FE 2? 26 - 736 

24159 64 3E 33 18 EA FE 6E 26 - 767 

24167 64 3E 55 IB E2 FE 6C 26 - 699 

24175 17 3E 26 32 BD 67 CD 7D = 789 

24183 63 CD 74 62 CD 91 61 CD • 1176 

24191 83 62 CD BB 62 C3 68 5E • 161? 

2419? FE 66 26 1C CD 61 64 21 ■ 749 

24267 2A 65 CD CF 63 CD 68 63 - 1662 

24215 21 19 65 CD AC 62 87 28 - 857 

24223 F4 23 7E 32 86 67 18 IE » 794 

24231 FE 3F 26 26 CD 61 64 21 » 726 

2423? 48 65 CD CF 63 CO 68 63 » 1692 

24247 21 19 65 CD AC 62 87 28 - 857 

24255 F4 23 7E 32 B7 67 C3 AE - 1116 

24263 5D C3 87 50 FE 2F 26 6B » 968 

24271 3A BB 67 CD 6C 61 32 88 - 989 

24279 67 18 EE FE 2A 26 68 3A « 762 

24287 89 67 CD 6C 61 32 89 67 « 1636 

24295 18 DF FE 2C 26 6B 3A BA - 832 

24363 67 CD 6C 61 32 BA 67 18 « 876 

24311 06 FE 2E 26 6B 3A 88 67 - 899 

24319 CD 6C 61 32 88 67 18 Cl - 967 

24327 FE 68 26 6F CD 92 62 CD - 963 

24335 91 61 CD 83 62 CD BB 62 * 1166 

24343 C3 6B 5E FE 6A 26 68 CD - 869 
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09 


54 
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EO 


B8 
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E9 


63 


12 


16 


3E 


20 


12 


C3 
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FE 


M 


26 


0F 


3A 


B 3 
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24455 


67 


CD 


6C 


61 


32 


62 


67 
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24463 


EA 


62 


C3 


20 


SE 


FE 


67 


26 




959 


24471 


45 


3A 


C0 


67 


32 


A 2 


65 


CD 




940 
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61 


64 


21 


8C 


65 


CD 


DB 
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898 


24487 


2A 


D2 


67 


M 


C2 


67 


77 


21 
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A7 


65 


CD 


CF 


63 


CD 


68 


63 




1187 
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FE 


73 


28 
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FE 


6E 


CA 
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5E 


18 


F2 


2A 


CC 


67 


01 


ce 
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2451? 


62 


3A 


C0 


67 


77 


23 


3A 


C2 
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24527 


67 


77 


23 


0B 


78 


B 1 


20 


FI 
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24535 


CD 


D4 


67 


C3 


AE 


5D 


FE 


28 




1276 


24543 


28 


0E 


FE 


27 


28 


0A 


FE 


26 




689 


24551 


28 


66 


FE 


25 


28 


62 


18 


09 
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24559 
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B2 
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CD 


EA 
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C3 
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67 
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23 
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20 


23 
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62 


C3 




1222 


24615 


2D 


SE 


FE 


04 


26 


53 


CD 


61 




71B 


24623 


64 


21 


BA 


65 


CD 


D8 


63 


3A 




1001 


24631 


BC 


67 


FE 


43 


20 


05 


21 


CF 




889 


24639 


65 


18 


IE 


FE 


4C 


20 


65 


21 




555 


24647 


DA 


65 


18 


15 


FE 


47 


20 


05 




726 


24655 


21 


E5 


65 


18 


ec 


FE 


53 


26 




768 


24663 


65 


21 


EF 


65 


18 


63 


21 


F8 




686 


24671 


65 


CD 


0 4 


63 


21 


FF 


65 


CD 




1211 


24679 


CF 


63 


3A 


C 0 


67 


D7 


3A 


C2 




1126 


24687 


67 


21 


FB 


5A 


77 


21 


18 


66 




752 



24695 


CD 


04 


63 


CD 


26 


64 


C3 


B7 




1237 


25575 


D7 C? 3A 87 67 17 17 17 - 82? 


24703 


50 


FE 


C3 


26 


21 


CD 


E9 


63 




1144 


25583 


C9 06 03 77 23 10 FC C9 - 833 


24711 


2A 


CC 


67 


54 


5D 


61 


46 


00 




591 


25591 


3E 62 CD 61 16 66 18 C3 - 517 


24719 


09 


61 


40 


65 


ED 


B0 


06 


26 




530 


25599 


44 0E 3E 62 CD 01 16 06 - 386 


24727 


EB 


36 


20 


23 


77 


23 


16 


F? 




775 


25667 


62 C3 44 0E 3E 00 CD 61 - 547 


24735 


CD 


D4 


67 


C3 


AE 


50 


FE 


CD 




1441 


25615 


16 3E 16 D7 3E 01 D7 AF - 774 


24743 


26 


IE 


CD 


E9 


63 


2A 


CE 


67 




950 


25623 


07 C? 3E 00 CD 01 16 3E - 768 


24751 


23 


54 


5D 


61 


ce 


FF 


09 


01 




676 


25631 


16 D7 AF 07 AF D7 C9 3A - 1276 


24759 


40 


05 


ED 


B8 


06 


20 


EB 


77 




882 


25639 


BE 67 F5 CD 6B 63 47 FI - 1258 


24767 


2B 


36 


26 


2B 


10 


F? 


18 


D8 




677 


25647 


BB 28 F7 C? 2A 20 54 41 - 895 


24775 


FE 


05 


26 


16 


CD 


92 


62 


3E 




824 


25655 


42 45 4C 41 53 20 2A 10 - 449 


24783 


63 


CD 


01 


16 


CD 


AC 


0E 


3E 




684 


25663 


27 E8 63 64 00 0A 00 01 - 385 


24791 


62 


CD 


01 


16 


CD 


BB 


62 


C3 




915 


25671 


00 00 00 20 26 36 36 31 - 209 


24799 


36 


5E 


3A 


BC 


67 


FE 


43 


20 




844 


25679 


31 32 32 33 33 34 34 35 • 408 


24867 


15 


21 


4A 


64 


CD 


A1 


62 


B7 




875 


25687 


35 36 36 37 37 38 38 39 - 440 


24815 


CA 


36 


SE 


23 


7E 


FE 


SB 


38 




906 


25695 


39 61 41 62 42 63 43 64 • 64? 


24823 


41 


2B 


2B 


7E 


18 


3C 


FE 


4C 




691 


25703 


44 65 45 66 46 67 47 68 » 688 


24831 


26 


15 


21 


4A 


64 


CD 


A1 


62 




724 


25711 


48 69 49 6A 4A 6B 4B 6C » 720 


24839 


B7 


CA 


30 


SE 


FE 


41 


38 


2A 




944 


2571? 


4C 6D 40 6E 4E 6F 4F 70 - 752 


24B47 


FE 


SB 


36 


26 


7E 


IB 


23 


FE 




876 


25727 


50 71 51 72 52 73 53 74 - 784 


24855 


47 


20 


65 


21 


96 


64 


18 


11 




432 


25735 


54 75 55 76 56 77 57 78 - 816 


24863 


FE 


S3 


26 


05 


21 


A9 


64 


18 




700 


25743 


58 79 59 7 A 5A 7A 00 31 - 681 


24871 


68 


FE 


55 


C2 


36 


5E 


21 


EC 




952 


25751 


BE 32 8D 33 BC 34 8B 35 - 768 


2487? 


64 


CD 


AC 


62 


B 7 


CA 


36 


SE 




1162 


2575? 


8A 36 89 37 88 38 BF 26 - 751 


24887 


23 


7E 


32 


BD 


6/ 


CO 


7D 


63 




932 


25767 


26 00 31 21 32 46 33 23 - 314 


24895 


CD 


74 


62 


3A 


B2 


67 


FE 


25 




104? 


25775 


34 24 35 25 36 26 37 27 - 364 


24963 


20 


05 


CD 


91 


61 


18 


15 


FE 




783 


25783 


38 28 3? 29 30 5F 72 3C • 511 


24911 


26 


20 


65 


CD 


AD 


61 


18 


0C 




586 


25791 


74 3E 79 SB 75 50 6F 3B - 770 


24919 


FE 


27 


20 


65 


CO 


E7 


61 


18 




887 


25799 


70 22 61 7E 73 7C 64 5C - 800 


24927 


03 


CO 


74 


61 


CD 


83 


62 


CD 




1666 


25807 


66 7B 67 7D 68 5E 6A 2D - 862 


24935 


BB 


62 


C3 


0B 


5E 


B7 


28 


M 




810 


25815 


6B 2B 6C 30 7A 3A 63 3F - 661 


24943 


AF 


C9 


3E 


01 


C9 


3A 


BS 


67 




982 


25823 


76 2F 62 2A 6E 2C 60 2E - 614 


24951 


FE 


IF 


28 


07 


3C 


32 


85 


67 




726 


25831 


20 20 69 7F 00 61 90 62 • 635 


24959 


C3 


2? 


62 


3A 


B4 


67 


FE 


15 




956 


2583? 


91 63 92 64 93 65 94 66 - 988 


24967 


CA 


49 


62 


3C 


32 


B4 


67 


AF 




941 


25B47 


95 67 96 68 97 69 98 6A - 1020 


24975 


18 


EB 


3A 


B5 


67 


B7 


28 


67 




831 


25855 


99 6B 9A 6C 98 60 ?C 6E - 1052 


24983 


3D 


32 


85 


67 


C3 


39 


62 


3A 




863 


25863 


9D 6F 9E 70 9F 71 A6 72 - 1684 


24991 


84 


67 


B7 


CA 


SO 


62 


3D 


32 




970 


25871 


Ai 73 A2 74 A3 75 A4 26 - 1030 


24999 


84 


67 


3E 


IF 


18 


EB 


3A 


B 4 




873 


25879 


26 00 30 60 31 01 32 02 - 182 


25667 


67 


FE 


15 


28 


19 


3C 


32 


84 




733 


25887 


33 63 34 04 35 05 36 66 - 228 


25015 


67 


2A 


CA 


67 


01 


46 


60 


09 




524 


25895 


37 07 00 53 65 6C 65 63 - 554 


25623 


22 


CA 


67 


2A 


C4 


67 


01 


20 




713 


25903 


69 6F 6E 65 20 6E 6F 76 - 798 


25631 


00 


09 


22 


C4 


67 


C9 


AF 


32 




768 


25911 


6F 20 49 4E 4B 20 20 28 - 473 


25639 


B4 


67 


2A 


CC 


67 


3A 


BS 


67 




974 


2591? 


26 36 20 61 26 37 26 29 - 369 


25647 


06 


00 


4F 


09 


09 


22 


CA 


67 




442 


25927 


00 S3 65 6C 65 63 6? 6F - 79b 


25655 


2A 


C6 


67 


H 


22 


C4 


67 


C? 




886 


25935 


6E 65 26 6E 6F 76 6F 20 - 725 


25063 


3A 


B4 


67 


B7 


28 


19 


3D 


32 




700 


25943 


50 41 50 45 52 26 28 20 - 480 


25071 


B4 


67 


2A 


CA 


67 


61 


C6 


FF 




1078 


25951 


30 20 61 20 37 20 29 60 - 337 


2507? 


69 


22 


CA 


67 


2 A 


C4 


67 


61 




696 


25959 


49 4E 4B 20 56 41 56 26 - 515 


25087 


E6 


FF 


09 


22 


C 4 


67 


C9 


3E 




1684 


25967 


46 4C 53 20 42 52 47 20 - 512 


25695 


15 


32 


B4 


67 


2A 


CE 


67 


61 




766 


25975 


4F 56 52 26 49 4E 56 26 - 548 


25103 


C2 


FF 


09 


3A 


BS 


67 


06 


00 




806 


25983 


20 4C 49 4E 00 26 20 20 - 355 


25111 


4F 


09 


09 


22 


CA 


67 


2A 


C8 




678 


25991 


26 26 26 26 06 45 4E 43 - 342 


2511? 


67 


11 


El 


FF 


1? 


69 


22 


C4 




864 


2599? 


48 45 52 20 4F 20 56 49 - 525 


25127 


67 


C? 


2A 


CA 


67 


23 


23 


22 




755 


26067 


44 45 4F 20 43 4F 40 20 - 503 


25135 


CA 


67 


2A 


C4 


67 


23 


22 


C4 




911 


26015 


2D 3E 26 26 26 3C 2D 00 - 368 


25143 


67 


C9 


2A 


CA 


67 


28 


2B 


22 




771 


26623 


28 53 29 49 4D 20 20 4F - 457 


25151 


CA 


67 


2A 


C4 


67 


2B 


22 


C4 




919 


26031 


55 20 26 28 4E 29 41 4F - 452 


2515? 


67 


C9 


2A 


CC 


67 


22 


CA 


67 




992 


26639 


26 3F 00 4D 4F 44 4F 20 • 430 


25167 


2A 


C6 


67 


22 


C4 


67 


AF 


32 




901 


26047 


44 45 20 49 4D 50 52 45 » 550 


25175 


B4 


67 


32 


BS 


67 


C? 


2A 


CE 




1666 


26055 


53 53 41 4F 20 30 20 00 - 435 


25183 


67 


22 


CA 


67 


2A 


CB 


67 


22 




821 


26663 


4D 41 49 55 53 43 55 4C ■ 611 


25191 


C4 


67 


3E 


15 


32 


84 


67 


3E 




777 


26071 


41 53 00 4D 49 4E 55 53 - 544 


25199 


IF 


32 


BS 


67 


C? 


3A 


BD 


67 




916 


2607? 


43 55 4C 41 53 00 26 47 • 479 


25207 


2A 


CA 


67 


77 


23 


EB 


2A 


C4 




974 


26687 


52 41 50 48 4? 43 53 00 - 522 


25215 


67 


ED 


A6 


C? 


2A 


CA 


67 


7E 




1174 


26095 


26 26 53 59 4D 42 4F 4C - 534 


25223 


32 


ce 


67 


2A 


C4 


67 


7E 


32 




862 


26163 


00 20 20 20 55 44 47 00 - 326 


25231 


C2 


67 


C? 


CD 


BE 


63 


3A 


ce 




1242 


26111 


43 48 52 24 20 53 4F 42 - 517 


25239 


67 


D7 


2A 


C4 


67 


3A 


C2 


67 




1014 


26119 


20 4F 20 43 55 52 53 4F - 539 


25247 


77 


C? 


3A 


BE 


67 


BE 


C8 


AF 




1236 


26127 


52 26 3D 20 26 2D 3E 26 - 378 


25255 


B6 


C8 


23 


18 


F5 


3A 


BE 


67 




1037 


26135 


00 26 3C 2D 00 26 26 41 - 266 


25263 


BE 


CB 


AF 


B6 


CB 


23 


23 


18 




1041 


26143 


42 43 44 45 46 47 48 49 - 556 


25271 


F4 


32 


BC 


67 


3A 


B8 


67 


32 




980 


26151 


4A 4B 4C 40 4E 4F 56 51 - 626 


25279 


BF 


67 


3E 


01 


32 


88 


67 


3A 




752 


26159 


52 53 54 55 26 20 4C 49 - 547 


25287 


BC 


67 


32 


BD 


67 


3A 


BA 


67 




980 


26167 


4E 00 20 B0 90 91 92 93 - 724 


25295 


F5 


AF 


32 


BA 


67 


CD 


7D 


63 




1188 


26175 


94 95 96 97 98 99 9A 9B « 1212 


25363 


FI 


32 


BA 


67 


3A 


BF 


67 


32 




982 


26183 


9C 9D ?E 9F A0 Al A2 A3 - 1276 


25311 


88 


67 


C? 


2A 


06 


67 


44 


40 




986 


26191 


A4 20 26 43 4F 4C 00 62 - 452 


25319 


C3 


30 


IF 


3A 


B3 


67 


B7 


CA 




1612 


2619? 


22 8C BC 8C BC 8C 20 40 - 843 


25327 


E2 


62 


21 


E8 


03 


11 


28 


60 




64? 


26207 


4F 4E 49 54 4F 52 26 26 - 539 


25335 


C3 


B5 


63 


CD 


ec 


63 


3A 


B4 




933 


26215 


47 52 41 46 49 43 4F 20 - 53? 


25343 


67 


CD 


2A 


63 


CO 


IB 


63 


3A 




838 


26223 


BC BC 8C 8C BC 62 04 BA > 844 


25351 


B5 


67 


C3 


2A 


63 


3E 


66 


CD 




887 


26231 


62 1A 85 62 04 8A 02 63 - 316 


2535? 


61 


16 


3E 


16 


D7 


3E 


66 


07 




599 


26239 


14 01 31 14 00 20 20 43 - 221 


25367 


3E 


ID 


D7 


C9 


3E 


66 


CD 


01 




775 


26247 


52 4? 41 52 20 4E 4F 56 - 577 


25375 


16 


3E 


16 


07 


3E 


01 


07 


3E 




661 


26255 


41 20 54 45 4C 41 02 05 - 398 


25383 


ID 


07 


C? 


26 


00 


6F 


7C 


BS 




899 


26263 


85 02 04 8A 02 1A 85 62 - 440 


25391 


26 


07 


3E 


30 


D7 


3E 


26 


D7 




673 


26271 


04 8A 02 03 14 01 32 14 • 238 


25399 


C? 


11 


3E 


64 


AF 


32 


BF 


67 




89? 


26279 


06 26 26 45 44 49 54 41 - 423 


25407 


AF 


EB 


4E 


23 


46 


23 


EB 


B7 




1646 


26287 


52 26 54 45 4C 41 20 41 - 505 


25415 


ED 


42 


38 


03 


3C 


18 


F9 


09 




704 


26295 


54 55 41 4C 02 03 85 62 - 456 


25423 


87 


26 


07 


3A 


BF 


67 


B7 


28 




797 


26363 


04 BA 02 1A BS 02 04 BA - 447 


25431 


E7 


AF 


C 6 


36 


32 


BF 


67 


D7 




1211 


26311 


62 63 14 01 33 14 00 26 - 129 


25439 


79 


FE 


01 


20 


DB 


3E 


26 


D7 




936 


26319 


26 41 43 49 4F 4E 41 52 - 541 


25447 


C? 


CD 


8E 


62 


0E 


00 


20 


F9 




845 


26327 


26 55 44 47 20 32 02 07 - 347 


25455 


CO 


IE 


63 


30 


F 4 




5F 


CD 




851 


26335 


85 02 04 BA 62 1A 85 02 - 440 


25463 


33 


63 


32 


BE 


67 


c< 


CD 


BE 




993 


26343 


04 8A 62 63 14 61 34 14 • 240 


25471 


63 


JA 


BB 


67 


87 


26 


10 


3E 




740 


26351 


00 26 26 27 53 41 56 45 - 466 


2547? 


10 


D7 


3A 


86 


67 


D7 


3E 


11 




868 


26359 


27 26 54 45 4C 41 26 45 • 466 


25487 


D7 


3A 


B7 


67 


D7 


18 


0E 


3E 




874 


26367 


26 55 44 47 02 63 85 62 - 396 


25495 


10 


D7 


3A 


B7 


67 


07 


3E 


11 




869 


26375 


04 8A 02 1A BS 02 04 BA > 447 


25503 


D7 


3 A 


B& 


67 


07 


3E 


12 


D7 




1068 


26383 


02 63 14 61 35 14 66 20 - 131 


25511 


:ia 


B8 


67 


07 


3E 


13 


D7 


a a 




914 


26391 


26 27 53 41 56 45 27 20 - 445 


25519 


B9 


67 


07 


3E 


15 


07 


3A 


B 




1045 


26399 


S3 43 52 45 45 4E 24 62 - 486 


25527 


67 


0 7 


3 A 


BD 


67 


D> 


C? 


3E 




1146 


26407 


06 85 02 04 8A 02 1A 85 • 444 


25535 


62 


CD 


0! 


16 


3E 


16 


07 


3 A 




587 


26415 


02 04 8A 62 63 14 61 36 - 224 


25543 


B4 


67 


D7 


3A 


B 8 


67 


0 7 


C9 




1256 


26423 


14 00 20 20 27 53 41 56 « 357 


25551 


E5 


CD 


06 


6 4 


El 


7E 


B7 


C8 




1279 


26431 


45 27 20 55 44 47 02 0A - 376 


25559 


D7 


23 


18 


F? 


E5 


CO 


19 


64 




1682 


2643? 


85 02 04 8A 02 1A 85 02 - 446 


25567 


El 


18 


F2 


3E 


-o 


D7 


3E 


26 




894 


26447 


04 8A 02 03 14 61 37 14 - 243 



26455 


00 


20 


20 


27 


4C 


4F 


41 


44 




391 


26463 


27 


26 


54 


•10 


4C 


41 


20 


45 




466 


26471 


20 


55 


44 


47 


02 


03 


85 


62 




396 


2647? 


64 


BA 


62 


1A 


85 


62 


04 


BA 




447 


26487 


02 


03 


14 


01 


38 


14 


06 


20 




134 


26495 


20 


27 


4C 


4F 


41 


44 


27 


20 




436 


26563 


55 


44 


47 


02 


0A 


85 


62 


04 




375 


26511 


8A 


62 


1A 


85 


aa 


04 


83 


83 




567 


26519 


83 


83 


83 


83 


83 


83 


83 


83 




1648 


26527 


83 


83 


83 


83 


83 


83 


83 


83 




1048 


26535 


83 


83 


83 


83 


83 


83 


83 


83 




1048 


26543 


83 


83 


63 


28 


01 


06 


06 


00 




306 


26551 


07 


00 


06 


00 


60 


43 


20 


38 




162 


26559 


00 


26 


00 


38 


06 


00 


SB 


00 




176 


26567 


58 


8F 


5A 


6A 


68 


0A 


68 


88 




733 


26575 


6D 


78 


06 


D6 


5A 


21 


09 


67 




BB6 


26583 


44 


4D 


2A 


7B 


5C 


E5 


CS 


3E 




B90 


26591 


62 


CD 


01 


16 


3E 


16 


D7 


AF 




704 


26599 


D7 


AF 


D7 


El 


01 


B 1 


65 


0? 




1022 


26667 


22 


7B 


5C 


01 


B6 


FA 


09 


11 




654 


26615 


66 


5B 


01 


C6 


02 


7E 


07 


23 




659 


26623 


ED 


A0 


78 


81 


20 


F7 


El 


22 




1232 


26631 


7B 


SC 


C9 


41 


38 


41 


38 


41 




723 


26639 


38 


41 


38 


41 


38 


41 


38 


41 




484 





Listagem 2 





7>IF PEEK 23675*256»PEEK 2367 
6-28642 THEN GOTO 9 

8 UDG 6 

9 BORDER 7 » CLS : LET L-USR 2 
3762( IF L>3 AND L(7 THEN RAND U 
SR 26585 

16 GOTO B*L 

11 CLS i UDG 2( GOTO 9 

12 G0SUB 26: GOTO 9 

13 GOSUB 36: GOTO 9 

14 GOSUB 46: GOTO 9 

15 CLS ( PRINT H6;" Poalclone 
a FITA e tecle ENTER": GOSUB 45: 

GOSUB 48: PRINT AT l,6+3»(L-8>( 
" ’LOAD' UDG "(("e TELA " AND L 
-7): GOSUB 47: LOAD ""CODE : GOT 
0 9 

16 GOTO 15 

17 INPUT ""* PRINT K6(" Vertfi 
car, (S)i« ou (N)ao ?" : POKE 236 

18 LET K-2: PAU£E 6: LET K-2-( 
INKEYS«"N" >-2« ( INKEYi-"S"> : IF K 
>1 THEN GOTO 18 

19 RETURN 

26 INPUT "Noae "(("da t«la" AN 
D L-4 ) ( ("do UDG" AND L«6>(" ? "( 
X«( IF LEN XS >16 THEN GOTO 26 

21 IF X*-"" THEN RETURN 

22 IF L-4 THEN SAVE XtCODE 265 
85.1625 

23 IF L-6 THEN SAVE XtCODE USR 
"a", 168 

24 GOSUB 1 7« IF K THEN RETURN 

25 G0SU8 48> PRINT AT 1,12(" V 
ERIFV "( GOTO 41 

36) INPUT "Noae da tela ? "(X*: 
IF LEN XI) 16 THEN GOTO 38 

31 IF X*-"" THEN RETURN 

32 INPUT PRINT K8(" BORDER 

* » » 7 S « 'SAVE l POKE 

23658,8 

33 LET K-CODE INKEY5-48: IF K« 
35 THEN GOTO 36 

34 IF K ( 6 OR K >7 THEN GOTO 33 

35 BORDER Kl GOTO 32 

36 INPUT ""« SAVE XtSCREEN* ( 
GOTO 23 

46 GOTO 26 

41 PRINT -> Postclone a fit 
a,"’" tecle ENTER": GOSUB 45: 

GOSUB 47 

42 IF L-5 THEN GOTO 44 

43 VERIFY ""CODE ( PRINT " 

OK. A gravacao esta boa I " ’" 
Tecle ENTER": GOTO 45 

44 VERIFY ""SCREENS : PRINT 
OK. A gravacao esta boa I""' 
Tecle ENTER" 

45 IF CODE INKEYS-13 THEN RETU 
RN 

46 GOTO 45 

47 PRINT ’" -> Llgue o GRAVAD0 

**•"'" se houver ERR0, diglte 
»" ’" GOTO 56": RETURN 

48 CLS : PRINT PAPER 8(AT 1,6, 
,: RETURN 

56 IF CODE INKEYS-13 THEN GOTO 
56 

^Sl PRINT '" -> Rebob Ine a ftta 
* ajuste o VOLUME do grava 

dor, tecle ENTER I": GOSUB 45 

: GOSUB 47 ( CONT 
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Magnex lan^a M-20 




Prop>ondo ao usuArio que nAo jogue fora nada do que jA gastou em 
hardware e em software compatibilizando tudo atravAs de um novo sis- 
tema multiusuArio, a Magnex lanpou o M-20. 0 M-20 A um computador 
de 8 bits que aceita como terminal qualquer microcomputador, tanto 
de 8 quanto de 16 bits, desde que compatfveis com CP/M. O novo equi- 
pamento da Magnex tambAm emula, ele prfiprio, term inais Burroughs e 
Honeyvwll-Bull. MultiusuArio e multitarefa, o M-20 suporta atA qua- 
tro terminals e duas impressoras, tern 320 Kb de memfiriae atA 20 Mb 
em disco Winchester. Com uma produpAo inicial de 30 mAquinas/mAs, a 
Magnex espera se consolidar.definitivamente no mercado de pequenas e 
mbdias empresas, conquistando um aumento substancial no seu par que 
instalado de computadores. Dependendo das necessidades de cada usuA- 
rio, o prApo do M-20 vai variar de 800 a 1 .500 ORTN, 



Promogao Scritta 



A Scritta Eletrfinica estA pro- 
movendo junto aos proprietaries 
de micros IBM-PC/XT (e compa- 
tfveis) e impressoras Grafix a dis- 
tribuipAo gratuita do livro "Cone- 
xAo Grafix IBM-PC e compatf- 
veis". Se vocA estA interessado em 
receber o livro, eicreva para o De- 

Inaugurado o 
Infoshopping 

No dia 5 de dezembro o Rio 
ganhou o primeiro shopping de in- 
formAtica do pafs. SSo vinte e seis 
lojas destinadas A venda de equi- 
pamentos ou suprimentos, clubes 
de vfdeo, software-houses, livra- 
rias etc. 

No Rio I nfoshopping estAo em- 
presas conhecidas na Area como a 
Aleph Sistemas e MAtodos, CiAn- 
cia Moderna e ComputapAo, Com- 
puter Shopping Moore, Mikros, 
Racimec, R&T InformAtica e Uni- 
te!. 

O shopping conta ainda com 
dois cinemas, que serAo usados, na 
parte da manhfi, para a real izapao 
de palestras e seminArios. O Rio 
Infoshopping fica na Rua do Cate- 
te, 311, Largo do Machado (pr6- 
ximo A Estapao do Metrfi). 

IFPS/PLUS 

AtravAs de acordo firm ado 
com a DSS InformAtica, represen- 
tan te exclusive da Execucom Sys- 
tems Corporation no Brasil, a In- 
tertec passou a oferecer a seus cl e 
entes o software IFPS/PLUS, atra- 



partamento de Propaganda da em- 
press (Alameda Amazonas, 832, 
Alphaville - Barueri - SAo Paulo, 
CEP: 06400) e mencione o mode- 
lo do seu microcomputador, o n? 
da sArie da impressora e o nome 
da publicapfio que veiculou esta 
inform apAo. 

Apoio ao 
software 

Os que esperavam mu it as novi- 
dades se frustraram com o 6 9 
Enesi — Encontro Nacional das 
Empresas de Servipos de InformA- 
tica, promovido pela Assespro no 
infeio de dezembro em SSo Paulo. 
O evento estava esvaziado e a ex- 
posipAo paralela de pacotes e equi- 
pamentos tambAm nSo atraiu mui- 
ta gente. Na abertura do encon- 
tro, o Ministro Renato Archer, da 
CiAncia e Tecnologia, celebrou as 
novas linhas especiais de crAdito 
operantes, como o Proinfo, do 
BNDES, e principalmente o Pro- 
grama de Apoio ao Software, da 
Finep, que instituiu duas modali- 
dades de financiamento — com re- 
tomo e com participapAo no risco 
— para pequenas software- houses; 
system-houses e universidades. 



vAs do seu bureau. T rata-se de um 
pacote de apoio A decisao, integra- 
do com mfidulos de otimizapAo e 
banco de dados relacional. Infor- 
mapfies pelo te!. : (011) 259-2055. 




Automagao Industrial 



Light pen para TK90X 



No final deste mgs jA estarA 
dispom'vel nas lojas a light pen pa- 
ra se conectada ao micro TK90X, 
da Microdigital. Quanto ao outro 
perifArico apresentado pela empre- 
sa na ultima Feira de InformAtica, 
a impressora TK Printer, ainda 
nAo hA previsao de chegada ao 
mercado. 

E por falar em mercado, a che- 
gada dos dois novos equipamentos 
da I inha MSX nSo parece ter afe- 
tado as vendas dos micros da I inha 
Sinclair, fabricados pela Microdi- 
gital. Segundo o diretor de marke- 
ting da empresa, Jorge Luiz dos 
Santos, os micros da Sharp e da 
Gradiente deram uma forpa ainda 
maior A Area de microinformAtica, 

Cobra 480 

A Cobra estA anunciando diver- 
sos aperfeipoamentos para o seu 
supermicro Cobra 480. 

Estas meihorias consistent em 
aumentar o numero mAximo de li- 
nhas assfneronas, acrescentar uma 
unidade de fita streamer de 21 Mb 
para back-up e adicionar uma uni- 
dade de disco Winchester de 10,51 
ou 67 Mb. 

Tamb6m sSo anunciadas novas 
versdes dos sistemas operacionais 
SOD (E.00) e MUMPS (C.02), com 
programas utilitArios para forma- 
tapao e efipia de arquivos nos no- 
vos perifAricos. Estes sistemas es- 
tarao disponfveis a partir de janei- 
ro e fevereiro. 



e pelo prfiprio custo destes equi- 
pamentos ele se posicionaram nu- 
ma faixa diferente da que 6 atingi- 
da pela Microdigital. "AlAm do 
que", reforpou Jorge dos Santos, 
"nossos micros jA contam com 
enorme suporte a nfvel tAcnico e 
de software". 

O diretor de marketing da Mi- 
crodigital afirmou ainda que nada 
impede que sua empresa venha a 
lanpar um equipamento dessa li- 
nha no prfiximo Natal, principal- 
mente se se levar em conta que as 
empresas que lanparam micros 
MSX no Brasil sAo novas na Area, 
nffo tendo trad ip Ao em informA- 
tica. 

MSX 

Informatica 

A linha MSX conta agora com 
uma empresa especial izada. Trate- 
se da MSX InformAtica Ltda. que 
atua tanto na comercializapAo des- 
ses equipamentos quanto na parte 
de suporte tAcnico e software para 
os mesmos. Inaugurada no final 
do ano, dentro da MSX InformAti* 
ca passa a funcionar este ano tam- 
bAm o MSX Soft Club, que conta 
com mais de 200 programas jA dis- 
ponfveis para locapAo. A MSX In- 
formAtica funciona na rua Caiubi, 
n9 567, te!.: (011) 872-0730, Sffo 
Paulo - Capital. 



Pianos para 86 

Ano novo, pianos de expansAo. A empresa Compumicro, que atua 
nos mercados do Rio de Janeiro e SSo Paulo, cresceu bastante ao longo 
de 85 e pretende diversificar suas atividades. VArios projetos tAm sido 
estudados peia diretoria, em especial uma nova filosofia de pontos de 
venda e a entrada na Area de treinamento. 

Na Area de 8 bits, — que equivale a 30% do seu volume de vendas — , 
a Compumicro revende basicamente UCPs da Unitron (linha Apple); 
drives e impressoras da Elebra; monitores de vfdeo Compo e places da 
Unitron e Logodata. 

Mas A atuando no segmento de 16 bits, como representante do gru- 
po Proceda, c^ie a empresa tern realizado grandes negficios, comerciali- 
zando principalmente para empresas estatais os micros Nexus 1600; 
Nexus 1684 (com Winchester de 10 Mb); PC 2001; XT 2002 e PC-PAQ. 
TambAm para o mercado profissional, a Compumicro dispfie da linha de 
comunicapAo (terminais e adaptadores) da Scopus. 

Para todos os produtos da Proceda, aISm da venda existe a oppAo do 
aluguel. Este A um contrato de 30 mesas, que inclui manutenpAo e op- 
pSo de troca, o que permite ao cliente manter a atualizapSo tecnolfigica 
de seus sistemas e reorientar seus projetos. 



EstagSo CAD/CAM com I 7000 
PC XT 

Participando da cerimfinia de 
abertura do 29 Congresso Nacio- 
nal de AutomapAo Industrial o mi- 
nistro da CiAncia e Tecnologia, 
Renato Archer, destacou que o se- 
tor de automapAo deve ter o mes- 
mo tipo de apoio que stem sendo 
dado A Area de informAtica. E pa- 
ra isso, segundo o ministro, deve 
haver uma politics definida que 
permits que os impactos da im- 
plantapao da automapSo no mer- 
cado de mfio-de-obrasejam absor- 
vidos, e os beneffeios dessa mes- 
ma implantapAo sejam distribuf- 
dos socialmente. Archer ressaltou 

I BAM: semindrio 

O I BAM vai promover nos dias 
23 e 24 de janeiro o seminArio 
"InformAtica: tendAncias tecnolfi- 
gicas e organizacionais". HaverA 
turmas das 8:30 As 12:00 e das 
1 3 : 00 As 1 7 : 00 hs. Maiores infor- 
mapfies pelo tel.: (021) 266-6622. 

Sorteio TK90X 

Os vencedores da segunda 
rodada do concurso "Ganhe 
um micro TK90X", promo- 
vido pela Microdigital em 
conjunto com MICRO SIS- 
TEMAS, s5o Marcel o Rober- 
to Gimenez, do Rio de Janei- 
ro. e Carlos Meilo Mesquita, 
de Porto Alegre. 



que a carteira da Finep — Finan- 
ceira de Estudos e Projetos — para 
projetos de modern izapao do par- 
que industrial do pafs aumentou 
em quatro meses de Cr$ 300 bi- 
Ihfies para Cr$ 1 trilhao de cru- 
zeiros. E lembrou ainda que atA 
junho deste ano o MinistArio da 
CiAncia e Tecnologia estarA rece- 
bendo os projetos de automapAo 
industrial das empresas nacionais 
interessadas em atuar nesta Area. 

Na exposipAo que se realizou 
paralelamente ao evento foram 
mostrados entre outros um robfi 
fabricado pela Villares para solda 
a arco, sistemas de CAD/CAM da 
Compugraph e Itautec, com tec- 
nologias respectivamente da Ma- 
tra, francesa, e da empresa none- 
americana CGX e um sistema ele- 
trfinico de pesagem, desenvolvido 
pela Proceda. 

Entre as propostas debat idas 
no encontro, a do ex-titular da 
SEI, Edson Dytz sugere a criapao 
de uma subsec retaria da SEI ou 
uma secretaria ligada ao MinistA- 
rio da CiAncia e Tecnologia, para 
se ocupai exclusivamente da ques- 
tffo da automapAo industrial. 



Conexao 

Bolsa 



A Clappy, empresa carioca es- 
pecializada na venda de equipa- 
mentos, software e servipos estA 
oferecendo um novo pacote de 
software: Conexao Bolsa. 

Desenvolvido pela B & C Con- 
sultores, Conexao Bolsa permite a 
qualquer usuArio dos micros Apple, 
TRS-80 e IBM-PC, ligar oseu equi- 
pamento aos computadores da 
BVRJ, possibilitando obter infor- 
mapoes sobre o mercado de apdes. 

A Clappy fica na Av. Rio Bran- 
co, 12 loja. Tel: (021) 253-3395. 



Cartao de 
referenda 

Foi lanpado recentemente pela 
Ponto Editorial o cartao de refe- 
rAncia para o micro Apple II e si- 
milares. O cartao possui 16 pAgi- 
nas e substitui o manual do pro- 
prietArio, de 320 pAginas, e abor- 
da os principals recursos do mi- 
crocomputador taiscomo: Integer 
Basic, Applesoft, DOS 3.3 e As- 
sembly 6502. O cartfio de referAn- 
cia pode ser encontrado nas prin- 
cipals livrarias e custa Cr$ 40 mil, 
e pode ser pedido tambAm direta- 
mente A Ponto Editorial, rua Cae- 
tAs, 252 — Perdizes — CEP: 05016, 
tel.: (011) 864-3499 SSo Paulo. 

Cursos BASIC 

Em fevereiro, a Datamicro vai 
promover cursos de BASIC BAsico 
e BASIC Avanpado. O BAsico co- 
mepa dia 4, com turmas As segurv 
das, quartas e sextas, em diversos 
horArios, e o curso de BASIC 
Avanpado terA infeio dia 5, com 
dias de aula a combinar. Informa- 
pfies pelo tel.: (021) 511-0395. 

Arquitron 

O arquiteto JosA Eduardo Ma- 
luf de Carvalho, colaborador de 
MICRO SISTEMAS e um dos pri- 
meiros a introduzir o uso do micro 
em sua Area, estA cada vez mais li- 
gado A InformAtica. Prova disso A 
que acaba de abrir uma loja para 
comercial izapao de computadores. 
Mas segundo JosA Eduardo, na Ar- 
quitron, mais do que para o co- 
mArcio de micros, a Anfase A dada 
a parte de servipos, tais como de- 
senvolvimento do software para as 
mais variadas Areas e a criapao de 
um clube de usuArios do TK90X. 
A Arquitron fica na Av. Faria Li- 
ma, 1.684 sala 23, Shopping Vi- 
trine Iguatemi, Sao Paulo. 



Outras empresas na trilha do MSX 



Duas empresas do mercado de InformAtica estu- 
dam seriamente a possibil idade de entrar na fabrica- 
p5o de micros da linha MSX. SAo elas a Dynacom e a 
Racimec. A Dynacom avalia com calma a hipfitese de 
mais um produto, visto que a empresa teve proble- 
mas com as places do micro MX-1600 — compatfvel 
com a linha Color, da Radio Shack, e com um nome 
bastante sugestivo, para quern pretende investir no 
padrio japonAs. O Color da Dynacom estava previsto 
para chegar As lojas no mAs passado, aproveitando as 
vendas de fim de ano, mas devido aos tais problemas 
de fabricapffo, teve seu lanpamento adiado para janei- 
ro, segundo a diretoria de Marketing. Quanto ao 
MSX, poderemos ter uma surpresa, quern sabe numa 
dessas feiras de entre-safra. 

JA na Racimec — que nSo brinca em servipo e 
apbia-se num confortAvel parque instalado de seus 
sistemas profissionais e terminais lotAricos — as pes- 
quisas estao bem adiantadas. Consta que jA existem 
equipes de desenvolvimento e software debrupadas 
sobre diversos modelos do MSX, somente A espera 
do sinal verde para acionar os motores de fabricapSo. 
E o sinal poderA vir em breve, pois segundo o presi- 



dente SimSo Brayer, tudo depende de serem resolvi- 
dos os impasses de fabricapao na Zona Franca de Ma- 
naus, para que haja uma "competipao limpa". Recente- 
mente, a Gradiente teve problemas para o lanpamen- 
to do micro Expert, visto que uma auditoria por par- 
te da SEI constatou que havia pianos de fabricapAo 
do micro, contando com os incentivos da Suframa jA 
garantidos A um projeto de videogame aprovado pelo 
Governo e que, afinal, nem vai ser fabricado. Detec- 
tado o "engano", a solupao parece ser a mesma da 
Epcom, que jA fabrica em Manaus o Hot Bit, porAm 
sem contar com as regalias daquela regiATo. 

O Presidente da Racimec, contudo, parece n3o es- 
tar convicto desta ser a melhor solupao, pois, disse 
ele, "pelo que conhepo da burocracia e dos proces- 
ses de controle, esta situapAo pode gerar mdefim- 
pfies e atA facilidades para quern jA estA IA". De qual- 
quer forma, embora o impasse maior esteja na certe- 
za de se conseguir prepo competitive, Brayer nao es- 
conde a empolgapSo com o produto — "Nao hA du- 
vida de que o MSX A um micro profissional" — , e co- 
mo a Racimec A movida em grande parte, por seu en- 
tusiasmo, dA pra apostar. 



Atendimento 

Prologica 

Os usuArios dos computadores 
pessoais da Prol6gica contam ago- 
ra com um servipo de reparos es- 
pecial. Trata-se do Atendimento 
RApido Prolfigica, que garante o 
conserto quase que imediato da 
mAquina, com prazo mAdio de 
apenas 30 minutos de espera e ga- 
rantia total por 45 dias. AlAm dis- 
so os prepos do novo servipo sao 
fixos: CP- 200, 1,8 ORTN, CP-300 
e 400, 2,8 ORTN e 4 ORTN para 
o CP-500 modelo 021. Para mea- 
dos deste ano o Atendimento RA- 
pido Prolfigica deverA ser estendi- 
do A Area de Sistemas e impresso- 
ras. O ARP funciona na rua Fi- 
dencio Ramos, 302, no bairro de 
VilaOlfmpia — S5o Paulo, Capital. 

Novas 

instalagoes 

A Maquis transferiu parte de 
suas dependAncias para a Rua 
Inhambu, 1271, tel.: (011) 543- 
3221, em Moema, Sao Paulo. No 
antigo prAdio da Av. ImarAs ficou 
apenas a fAbrica. 

No Rio, a Maquis tambAm mu- 
dou de enderepo. A empresa insta- 
lou seu novo show-room na Av. 
Calfigeras, n9 6B, sobrelojas, tel.: 
(021) 240-4934, Centro. 

Padroes 

brasikiros 

Com o objetivo de discutir a 
criapao de padrfies brasileiros para 
o setor de InformAtica, difundir 
os resultados alcanpados atA o pre- 
sente, discutir a integrapAo desse 
esforpo A importancia da Certifi- 
capAo de Qual idade Industrial e 
colher subsfdios para os trabalhos 
futuros, a ABNT — AssociapAo 
Brasileira de Normas TAcnicas — , 
atravAs do seu CB-21, realizou de 
18 a 20 de novembro no Hotel 
Glfiria (Rio de Janeiro), o SeminA- 
rio de NormalizapAo TAcnica e 
Qual idade Industrial em InformA- 
tica. 

Constitufdo de vArios painAis 
e cursos de curta durapAo, o Se- 
minArio destacou a importancia 
do setor de InformAtica — que es- 
te ano faturarA mais de US$ 2 bi- 
Ihfies — para o pafs, enfatizou a 
necessidade de padronizar alguns 
recursos mfnimos dos sistemas 
operacionais (chamadas de super- 
visao, bibliotecas, arquivos, etc.) 
e alguns aplicativos de uso geral, 
visando beneficiar a industria, o 
comArcio e principalmente o usuA- 
rio. Os participantes tambAm afir- 
maram a necessidade de que o 
Brasil procure solupdes prfiprias 
para os seus problemas e nAo ape- 
nas copie programas e sistemas B 
importados. 
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Mesmo sendo versatil, o sistema operacional do TRS Color nao possui 
recursos para combinar textos com graficos em alta resolugao. Porem, 
se voce utilizar as rotinas descritas neste artigo isto sera facil. 



Caracteres no Color 

Claudio Costa 



U ma das maiores limitagbes dos 
micros compativeis com o TRS 
Color e, sem duvida, a impossi- 
bilidade de se combinar texto 
com alta resolugSo. Nesses equipamen* 
tos, o hardware para geragao de video 
seleciona alternativamente o modo de 
apresentaglo entre texto ou grdfico: no 
primeiro modo, um byte de video e tra- 
duzido como um cardter; no segundo, 
esse mesmo byte 6 interpretado como 
um pixel ou ponto da tela grafica (veja 
o artigo “Video no Color”, MS n?48). 

£ possivel concluir que tal limitagao, 
at£ certo ponto, se impOe em razao do 
sistema operacional nfo ter sido dotado, 
a principio, de rotinas capazes de tradu- 
zir as informagSes das telas graficas na 
forma de caracteres. Logo, se quisermos 
aliar texto a alta resolugao, o que temos 
a fazer 6 simplesmente escrever essas ro- 
tinas. Ha vdrias maneiras de se fazer is- 
so, tanto em BASIC como em linguagem 
de mdquina. 

Um metodo clissico 6 o que utliza o 
comando DRAW. Considere uma matriz 
da letra A, como a ilustrada na figura 1. 

Portanto, se voce desejasse imprimir 
o carater da figura 1, a instrugao DRAW 
viria acompanhada de: U5R4D2NL4D3, 
o que pode ser visto na figura 2. Este co- 
mando significa: suba cinco pontos, 
ande quatro para a direita, dois para bai- 
xo, quatro para a esquerda, sem atuali- 
zar a posigao de impressao e, finalmen- 
te, mais tres pontos para baixo (o fun- 
cionamento deste comando estd clara- 
mente explicado no manual). Digite o 
programa abaixo e confira o resultado 




Figura 1 Figura 2 



na tela de alta resolugao: 

10 PllODE4sCOLORO,5:PCLS:SCREENi , 

1 

20 DRAW U5R4D2NL4D3~ 

30 00T030 

Como o argumento de DRAW pode 
ser uma string, e possivel estender este 
processo para a impressao de mensagens 
inteiras; basta definir as instru9Ses DRAW 
para os caracteres e acessd-las at raves de 
uma matriz. Este metodo implica em es- 
tabelecer parametros para todo o alfa- 
beto, trazendo porem, em contraparti- 
da, uma grande flexibilidade. Com efei- 
to, nSo precisamos nos restringir ao con- 
junto de caracteres convencionais do mi- 
cro; podemos criar letras minusculas, 
acentuaglo da lingua portuguesa, carac- 
teres especiais etc., tudo no formato que 
desejarmos. 

Certos cuidados s3o necessarios, se a 
inteng§o e criar um sistema que funcio- 
ne em todos os PMODEs. Experimente, 
no exemplo anterior, trocar o PMODE 
4 da linha 10 por PMODE 0. Rode nova- 
mente o programa, voce notara que a 
perda de definig2o do desenho se deve 
ao fato do ponto, na baixa resolugao, 
ser mais alto do que largo. Para funcio- 
nar em todos os PMODEs, um sistema 



deve, portanto, prever as diferen9as exis- 
tentes entre os diversos modos graficos. 

A sub-rotina apresentada na listagem 
1 imprime caracteres maiusculos em 
qualquer PMODE, bastando para tal 
comandar GOSUB 5. A mcnsagem (ma- 
ximo de 25 digitos) deve estar contida 
na variavel TES ; PX define a coluna e 
PY a linha de inicio da impressao. Ape- 
nas o intervalo de 0 a Z foi utilizado 
(CHRS 48 a 90. mais um espa9o). logo, 
e so subtrair 47 do codigo ASCII de 
cada um dos caracteres a serem impres- 
ses para se obter a posigao do desenho 
correspondente na matriz (linha 6). An- 
tes, porem, s3o necessarios alguns calcu- 
los com o objetivo de compatibilizar a 
posigao rclativa do tra90 nos diversos 
PMODEs. Assim, PY deve ter um valor 
par, enquanto PX deve ser impar; as 
comparagOes logicas da linha 5 verificam 
a consistency desses valores. O espaga- 
mento entre os caracteres (SP) e calcu- 
lado como sendo aproximadamente o 
dobro do valor da escala empregada, o 
qual pode ser referenciado por meio de 
PEEK (233) (linha 5). Algumas letras. 
como M e W, no entanto, requerem mais 
espa90 para serem representadas; este es- 
pa9o e indicado pelo parametro B, no fi- 
nal da instrugao DRAW (linha 7). Note 
que alguns caracteres foram redefinidos: 
o sinal <, por exemplo, imprime um Q. 
Veja na figura 3 um quadro com os ca- 
racteres redefinidos na rotina. Qualquer 
carater fora da faixa valida sera interpre- 
tado como um espa9o. 

Para ver a rotina funcionando, rode o 
programa abaixo, pois ele imprime a 



mensagem em letras ciano sobre fundo 
cinza (COLOR 6, 5) em media resolugao 
(PMODE 3): 

HI PM00E3SC0L0R&, 5 sPCLSs SCREEN 1 , 

1 

20 TES ~CARACTERES":PX=73iPY=90i 

C0SUB5 
30 G0T030 

A escala em que serao desenhados os 
caracteres pode assumir qualquer valor 
numa faixa de 4, 8, 12, 16 etc. Para 
ajusti-la, deve ser usado normalmente o 
parametro S do comando DRAW, tal 
como mostra o exemplo a seguir: 

10 PM0DE1 ! COLORS . 8 : PCLS : SCREEN 1 , 

1 

20 TES-"CARACTERES“sPX«43iPY»96t 

DRAW~S8”:G0SU85 

30 G0T030 

Note, por fim, que voce pode exibir 
numa mesma tela caracteres de diferen- 
tes formatos. Basta passar os caracteres 
de um PMODE para outro: 

10 TES="CAR ACTERE8" 

20 PM0DE1 1 COLORS . : PCLS ! SCREEN 1 , 

1 »PX*4l SP Y=76 s DR AU"SB" : G0SUB5 
30 PHOOE3:COLOR6 r 5:PX-79sPY»36:0 
RAU"S4~:G0SUB5 
40 FORT=1T02000«NEXT 
50 PM0DE4SSCREEN1 . 1 IPX=8UPY«90« 

GOSUB 5 
60 G0T060 

Com base no que foi visto, voce po- 
der i adaptar a rotina de acordo com 
suas necessidades. Se voce quiser usa-la 
como est2, digite o comando CLOAD 
seguido da rotina e inicie a numeragao 
de seu programa a partir de 10. Nao es- 



que9a, nesse caso, de ajustar o parame- 
tro CLEAR da linha 1 de acordo com o 
programa principal. 

MODIFICANDO 0 FORMATO 
DA TELA 

Uma outra caracteri'stica que pode 
passar despercebida na primeira aproxi- 
magao, mas que e capaz de se tornar ob- 
jeto de alguns aborrecimentos no convi- 
vio com estes micros 6, certamente, a 
pequena capacidade de sua tela de tex- 
to, capaz de acomodar apenas 32 colu- 
nas por 16 linhas. Tal divisao, contudo, 
nSo e gratuita: como a memoria do Co- 
lor e dividida em paginas de 1536 by- 
tes cada, e os 1024 bytes iniciais da pri- 
meira pagina estSo reservados para as va- 
riaveis do sistema, sobram apenas 512 
bytes para alocar a tela de texto. Como 
se ve, o arranjo de 32 colunas por 16 li- 
nhas e o que melhor se adapta a esta or- 
ganizagio de memoria (note que 32 x 
16 perfazem exatos 512 bytes). 



carAter 


CARATER 


DO MICRO 


DA ROTINA 


) 

< 


c 


> 


A 


? 


- 


• 





Uma solugSo para este problema - e 
que resolveria ainda a incompatibilida- 
de de texto com alta resolugao - seria 
uma rotina que habilitasse a tela de alta 
resolugao grafica a funcionar tambem 
como tela de texto. mantendo-se o prin- 
cipio do emprego de caracteres defini- 
dos pelo programador. Isto e possivel 
gra9as a maneira como foi projetado o 
sistema operacional desses equipamen- 
tos, e embora tal rotina precise ser escri- 
ta em linguagem de maquina, o conceito 
que envolve sua operacionalidade e bas- 
tante simples. 

Na verdade, a rotina do sistema ope- 
racional responsavel pela impressao de 
um cardter, localizada em SA282, exe- 
cuta inicialmente um JSR (Jump do 
Sub Routine, que equivale a um GOSUB 
do BASIC) para uma posi9ao da RAM — 
o endere90 359 decimal, mais precisa- 
mente. Neste momento, o cardter a ser 
impresso estd contido no registrador A. 
Esta posi9do content apenas uma instru- 
9do de desvio (JUMP) para outro ende- 
re90 da ROM, onde continua o proces- 
samento; logo, para interceptar a rotina 
de impressao, tudo o que temos a fazer 
e colocar um JUMP para a nossa rotina 
na posi9do apropriada da RAM, salvar 
os registradores naquele ponto, execu- 
tar a rotina de impressao do carater na 
tela grdfica, recuperar o conteudo dos 
registradores e comandar um JUMP para m 



COMUNICAgAO ENTRE MICROS PARA 
TRANSFERENCIA DE ARQUIVOS 



O TRANSFERE c a solug&o para o seu problema 
de icr vdrios micros com formaios de diskette ou 
sistemas operacionais incompauveis. 

Com o TRANSFERE voce pode transferir 
arquivos entre dois micros atraves de uma 
ligagdo por cabo. O TRANSFERE usa as 
interfaces seriais dos seus micros, podendo 
funcionar com velocidade de transmisslo de ate 
9600 bauds. 

Na tabela ao lado voce enconira as caracteristicas 
mais importantes do TRANSFERE. Use-a paia 
facil itar a sua decisJo de compra, comparando o 
TRANSFERE com os concorrentes. 

Computadores ja suportados: POLYMAX, 

EDISA. D1SMAC, TELS1ST, ITAUTEC. 

PROLOGICA, MICROTEC, SCOPUS, 

UNITRON, MICROENGENHO, todos os 
compativeis com o APPLE usando placa CP/M e 
todos os compativeis com o IBM PC (consultc- 
nos se o seu computador n3o esta listado, novas 
versbes est^o sendo feitas). 

PREQO: 20 ORTNs para compativeis com o 
APPLE II, 

30 ORTNs para micros CP/M 
40 ORTNs para micros MS-DOS 
(compativeis com IBM PC) 

INTELSOFT Proieto e Desenvolvimento de Sistemas S/C Ltda 

Praia do Flamengo 66 Sala 1 1 04 CEP 22210 Tel (02 1 )265 3346 - Rio de Janeiro - RJ 



I NTELSOFT 



f Compare voc& mesmo o TRANSFERE com os concorrentes A 



CARACTERISTICAS 



Permite a transfer&ncia de arquivos entre 
micros CP/M e compativeis com IBM PC 



TRANSFERE 



SIM 



Faz a transmissao usando um protocolo de 
verificapio e corregao autom^tica de erros 



icayao e correpao auiomaxica ot 

ismite qualquer tipo de arquivo, como 
es de programas, textos. arquivos de 
-* programas execut6veis. etc. 



SIM 



[termite transmitir' virios arquivos com um 
lumco comando. usando a convenpao de ? e 
* para especificar o grupo. 

A transmissao pode ser feita atraves de 
ligapao direta por cabo ou atraves de linhas 
telefdmcas usando modems. 



SIM 



SIM 



SIM 



Para transfer§ncia de arquivos basta dar o 
comando em um dos micros ligados. o outro 
responde automaticamente. 



SIM 



Permite acessar qualquer drive em qualquer 
um dos micros, podendo listar diretdrios do 
micro local ou do remoto. 






SIM 



Permite emular um terminal com protocolo 
TTY para ligapao com CIRANDAO, DISQUE- 
B0LSA. ARUANDA e outros servipos. 



SIM 



Acompanha o programa um manual 
completo, que explica detalhadamente a sua 
utilizapio 



SIM 
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CARACTERES NO COLOR 



Listagem 1 



1 CLEAR200:DRAW"S4"sDIMC%(43> :TO | 
RJ=1T043:READCK J> :NEXT:G0T010 

2 DATAXCl ( 20 ) ; NG3D5 , BR3U7G2 , BU6E 
R 3FD2GL3GD2R5 , BU6ER3FDGNLFD2GL3H 
^ BR3U7G4R6 , BU7NR5D3R4FD2GL3H , BU3 

ft A FDGL3HU3E3R , E6UL 6 . XC% < 4 » ; U2EHU 

BRRE3L4HU2ER3FD2,UBU4U ,UD2 r XC4( 

20 > • BD6BL2D2 , BU2R4BU3L4 , XC% ( 18 ) ; 
BU9BLL3 , BU3R4 r U , U6ER3FD3NL5D3 , XC 
% ( 33 ) • FD2GL4 

3 DATABR4NEL3HU5ER3F.U7R4FD5GL4 
XC5<23) •D4R5,U7R5B02BQL4,XC%<^0> 

- BD3NL2D2 , U7D3R5U3D7 , BRR2U7VIL2NR 

2D7R2.BRNHR3EU6.U7D3R2NE3F3D.NU7 

R5.U7F3RE3D7B , U7F6DNU7 , XCl < 20 > ;D 
5, U7R4FDGNL4 r XC*(32> ;8L2F2,XCl<3 
3 ) -L2F4 .R4EU2HL3HUER4 .BR3U7L3R7B 
BU7D6FR3EU6.BU7D4F3RE3U4B 

4 DAT ANU7E3RF3U7B , UE5UBL5DFoD , BR 
3U4NH3E3B , BU7R6G7R7 

5 PX=PX OR 1 sPY=PY-(PY AND1):SP=P 
EEK ( 233 > *2+2 

6 FORJ=lTOLEN(TEt> :CH=ASC(MID4(T 

J , 1 ) ) -47 : IFCH< DORCH > 43THENCH= 

7 DR AW"BM"+STR%( PX ) +" , "+STRK P Y ) 
+C4<CH) :PX=PX+SP-2* <RIGHT4<C4<CH 

) l :NEXT :RETURN 

8* 'VAR IAVEIS USAOAS: C4,CH,J r PX, 

P Y ,SP , TE4 

10 '«*««»***«*«»**»«************ 



Listagem 2 



10 » a*##****************"****** 

15 ► * TEXT ♦ BIN 

25 * ♦ Comb i na texto to* alt a » 

30 * resol-icao e altera o * 

3 ;, » foi’ mat o da tela para * 

JO ■* 32 colunas X 24 linhav * 



, »»**#IMHHHHHHH**«**** ,,, ‘* ,M *** 

rj 0 . 4 Claudio Costa » MS « 

. „ , „ 09/1985 * 

A0 • HI | ,»#*#IIM«*MII«*II*«»*«» , '»" 

70 CLFAKL’0U,256*P£EK<116> 76.’-t- 

256«PEEi • 16) -761 sF T *-1016 

75 CLS: CkEENO, 1 SFORB =1 TO FSREA 
DAS : A-‘ Al f'SH"+At)sC=C+A:POKEB,A 

80 IF! 0191655 THFNPR I NT 3203 , "" 
LRRO *" :P0KE137 , OSEND 
B5 PRINT819; ."PREPARE 0 GRAVAI'OR 
E TECLE F N 1 ER": IF1NKEY4- '"TIP B 
5 

90 CSAVEM"TEXT+", 1 ,F, I 
95 9 

100 DATA DE.A9.EF,8D.00,F6..13.BP 
00 A? DF.A9.rE, 01 .68.EF.8D.G1 ,0 
} A BD.OO.L . f F ,01,68,33,80,01. 
5E DF.FC.CE.19 64 ,DF , FA , C6 , 04 , BD 
96 2C C6.1 1 ,07 , B3 , OF , B2 , 8D . 76 ,B 
D 95 , C.F , 33 . 8D . 1 .0 . 21 , A6 , CO , 27 07 
43, AD.9F . A0.U2./‘0,F5,FE ,01 , 6B , EF 



,8D,00,5B ,30,8D,00,26,BF ,01 
110 DATA 6B , CE , 00 , C8 , 34 , 40 , 7E , AE 

54 AB BA.A7,AB,D4.F2 ( B2,96,9C,B 

D . 90 . DF , AC , 96 , BC , BB , 9A ,92 . 9E 8C 

DF,CE,C6,C7,C9.F2, 00, 34,^6 81 OC. 

26 05,8D,2B, 17, 00. DD, 96, 77,27,1 

1 9E FA.BD , A7 ,D3,8E ,01 ,52 ,86 , FF , 

A7 80 , 8C ,01 ,5A , 26.F9 , 96 , 76 ,27 . OA 

, CC , 08 , 04 , 97 , 8C , 07 , 8E , B D , A9 

120 DATA 56 , 35 , 56 , 7E , 8C , F 1 , 34 , 1 6 
BD 95 42 , 9E , B A , 9F , FE , 35 , 96 , 70 , F 

F 22 2A , 43,81 ,9E ,27 , 10, 81 , 3B , 26 , 

08. 34, 56, 4F, 17, 00. 98, 35, 56, 81 97 
26 02 BD ,DA , 81 , 40 ,26 ,29 , 8C , AB , 7 
5 26 24,34,16,80 C j, E4 , 1 0 , 83 , 02 , 

TF 10, 22, 37, 5F, IF ,01 ,80,00,20,25 
. 08 , 30 , 88 , EO , C3 , 00 , EO , 20 , F3 

130 DATA D3, BA, DD.FE ,35, 16,86,20 

7£ AA , 1 A , OD , 6F , 26 , 17 ,34,56,81,0 
8 26 , 1 4 , 4F , 8D , 56 , DC , FE ,5A , 2A , 03 , 

83 01 EO DD.FE ,8D, 46 , 35 ,06, 7E , 87 
73 81 ,0D ,26 , 09 , 4F ,80 ,3E , DC , FE , 4 
C 51* 20 14, 81, 20,25, EA, 81, 7A, 22, 

E6 , 8D , 2C , DC , FE , 5C , C 1 , 20 , 25 , 03 , C3 

, 00 , EO , DD , FE , 1 0 , 93 , 87 , 25 , 0 1 

1 140 DATA 0A,FE,9E t k!A,EC.89,01 .00 
ED 81 9C.FE.26.F6.9F .BA.BD, 95 , 4 
' 96 E: C, 97, BA, 20,88, 86, 63, 80, • 0, 

C6 07 , 3D , D3 , FC , IF ,01 , DE , FE ,86 , 07 
E6 BO, 00, B3, 26,01 ,53 , E7 . C4 , 33 , C 
8 20 . 4A , 26 , F 1 , 39 , FF , FF , FF , FF , FF , 

FF FF,F7,F7,F7,F7,F7,FF,F7,EQ,LB 

, EP. , FF , FF , FF , FF , EB , EB , C9 , FF 

150 DATA C9.EB ,E0 ,F7,E1 ,DF ,E3,FD 

C3.F7,CD,CD.FB.F7.EF,IA\D9 E7 D 

7 D7 FF iS.DB ,E5,F7,F7,EF.rF ,FF, 

Ff JT F/,EF,DF,0F,DF,EF,F7,F7,FB 

FD i D 1 FD,FB.F7.FF,F7,E3,.:i,E3 F 
/ F^ IF F7,F7,Ct.F7,F7,FF.FF,FF, 

FF 17 E7.F7 , E T , FF , 1 F ,FF ,Ci,FF,FF 
, FF ,FT ,FF , r F ,FF , I f , E7 , C7 , FD 

1 60 OA A FD.F8.F7FF.DF DF E7 OB 

0B.DB,D8,DB.E7.F7,E7,F7,F7 F/ F 

7 £3 F3 DD , FD , r 3 , OF , DT ,C 1 , E3 , DD , 

FD F3.rD,DD,E3,FB,F3.f B.Cl.FB.FB 

F'B Cl DF,C3,F0,r D . DO , E3.E3.DF , D 
F C.i DD ,0D , E3 ,Ci ,1 D ,FB ,F7 ,EF , DF , 

DF ,1 3 , DD . DD.E3 , DD, DD , F.3 , E3 , OD ,DD 
,E1,FD,FD,F 3,FF ,E7 ,E7,FF ,F7 

170 DA I A E7.FF, E7.E7.FI ,E7,E7^F7 

Er FB,F7,EF,DF,EF,F7,FB,FF.F ,C | 
1 fF Cl FF ,FF ,EF ,F7 ,r B ,FD ,FB ,F 7 , | 

EF E7 DB , FB , F 7 , F7 , FI ,F7,E3,DD.FD 
ED 05 , D5 ,E3 ,F7 . EB ,1'D , DD , Cl , DD ,D 
D C3 , CD , EO , E3 ,ED , ED ,C3 , E3 , DD , Dl , 

DF ,DF , DD , E3 , C3 ,CD , ED , ED , ED , ED . 1.3 

, Cl , OF , DF , C3 , DF , DF , Cl , Cl , DF 

Iso DATA DF.C3,DF,DF,DF,E1.DF DF 
D9 DD DD,E1 ,DD,DD,DD,C1 , oD.DD.D 
i C3 F7,F7,F7,F7,F7,E3,FD,FD,rD, 
FD DD DD , £3 , DD , DB , D7 , CF , D7 , DB , DD 

DF DF , DF , DF , DF ,DF , Cl , DD , C9 , 05 , 0 

5 DD , DO , DD , DD , CD .05 , 09 , DD , DD , DO , 
Cl OD , DD , DD , DD , DD , C l , C3 , DD , D"' , C3 
, DF , DF , DF , F. 3 , DD , DD , DD , D5 , DB 

WD DATA E5 ,C3 , DD ,00,03,07,08,00 
E3 DD,EF.F7,FB,DD,E3.C1,F7,F7,F 

7 F7 F7 F 7 , DD , DD , DD , DD , DD , DD , E3 , 
DD DD , DD , EB . EB , F 7 , F 7 , DD , DD , DD , 05 
05 C9 OD, DD.DD , EB.F7 ,EB ,DD,DD,D 
D DD,EB,F7,F/,F7 ,F7,Cl,FD,FB,r7, 
EF OF , Cl , C7 , DT , DF , DF , DF , DF , C7 , £7 
, DB , DB , E7 , FF , E7 , FF , E3, FB , FB 

200 DATA FB , FB , FB , E3 , F7 , E3 , D5 ,F7 

F7 f 7 F7,FF,F7,FB,81,FB,F7,FF,F 

F FF FF FF,FF,FF,C1,FF,FF,C7,FB, 



C3 BB C'i OF ,DF ,D3,DD ,DD ,DD , C3 , FF 
FF E,.DD.l>F,DO.E3.FD,FD.Et.DO.D 
L) DD F l , F 1 , FF , E3 , DD , Cl , DF , E 1 , F3, 
U L ,EF,EF,EF,FF,FD.E3.DD.E3 
, FD ,C3,DF , DF , D3 ,DD,DD ,DD , DD 

2X0 DATA F7,FF.E7.F7,F7,F7 E3 FB 
FF FB FB ,FB ,FB ,E7 ,DF ,DF , DB ,D7 ,L 
7.DB ,DD.E7,F7,F7,F7,F7,F7,f 

FF 89. B6, B6.B6.BE .FF .FF.D3.DD DD 
DD.DD.FF ,FF,E3,DD,DD,DD,E3,FF,D 
3.LD.DD.C3.DF ,DF ,FF . E5 , 09 I DD .1 El , 
FD FD , FF , FF ,D3 , CD ,DF , DF , DF ,FF ,FF 

, F3 , DF , E3 , FD.E3, EF ,EF ,83 ,EF 

220 DATA EF,ED,F3,FF ,FF ,DD,DD,DD 
DD FJ.FF , FF ,DD,DD,DD,EB ,F7,FF ,F 

F ,BE .1.6. B6. K6.CV.FI .FF.DD EB.F7 
EB.DD.FF , FF , DD , DD.El , F D ,E3 , FF , FF 
,C1 ,FD,t 3,DF .Cl 



o endere90 originalmente apontado por 
aquela posi92o da RAM. Evidentemente, 
o programa nSo se resume apenas msso; 
uma s^rie de outras fun9&es precisam ser 
implementadas. tais como: impress2o do 
cursor, delete, backspace, execu9ao do 
SCROLL automatico quando a tela es- 
tiver cheia etc. 

£ bom saber, entretanto, que £ possi- 
vel escrever um programa que execute 
todas essas fur^des usando menos ae 
300 bytes. O maior consumo de memo- 
ria, na realidade, esta relacionado com a 
tabela de que tal programa necessita 
para desenhar os caracteres. Nao 6 possi- 
vel, a exemplo do que fazem os usuarios 
do ZX81 , ler a tabela de defini9ao de ca- 
racteres do micro, porque essa tabela 
nSo estd localizada na ROM do sistema 
operacional e sim na ROM do micropro- 
cessador de video, o VDG. 

Como a defm^ao do formato dos ca- 
racteres fica a criterio do programador, 
nao existent, a rigor, restr^des quanto 
ao numero de Unhas ou colunas que po- 
dem ser utilizadas pelo novo sistema. Al- 
guns criterios, todavia, devem ser segui- 
dos e um deles diz respeito 2 legibilida- 
de dos caracteres. Isto pode parecer ob- 
vio, mas muitos programas comerciais 
desenvolvidos com o objetivo de amp liar 
a capacidade da tela de texto do Color 
Computer pecam nesse aspecto. Enquan- 
to tecnicamente nao ha problema em 
operar com 64 caracteres por linha, por 
exemplo, na prdtica, o diametro dos ca- 
racteres nSo passaria de tres ou quatro 
pixels, considerando-se que o limite : ho- 
rizontal da tela e de 256 pontos (256/ 
64 = 4). Os caracteres normais do micro 
tern uma largura de oito pixels, por 
onde se perce be que a imagem, num te- 
levisor comum, seria no minimo sofn- 
vel. 

0 programa apresentado na listagem 
2, cria uma tela de texto de 32 colunas 
por 24 linhas, ou 768 posi96es. Este tor- 
mato e mais ou menos padrao para equi- 
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pamentos deste porte, e foi adotado em 
fun93o da maioria das dificuldades de 
manipula92o da tela de texto estarem re- 
lacionadas com o numero de linhas dis- 
poniveis. Este formato permite ainda 
que seja mantido o desenho original dos 
caracteres do micro, jd que apenas o es- 
pa9amento entre as hnhas 6 modificado. 
0 programa imprime letras maiusculas e 
minusculas em video normal ou inverso, 
alem de implementar opcionalmente no- 
vas fun95es, como repeti92o automatica 
de teclas e feedback auditivo (beep). 

COMO USAR O PROGRAMA 

Digite cuidadosamente a listagem 2 e 
grave-a em fita. Em seguida, de RUN:; 
n§o havendo erro, a tela permanecera 
cor de laranja durante, aproximadamen- 
te, 15 segundos. Prepare o gravador, de 
ENTER e grave a versao final do progra- 
ma. Para carregar e executar, digite a se- 
guinte seqiiencia em forma de comando 
direto: 

CLEAR 2000 :CLO ADM £XEC 

0 prdprio programa se encarrega de 
reservar espa90 no topo da RAM. Ape- 
nas 262 bytes, mais 637 bytes de tabe- 
la s3o usados; as rotinas de inicializa9ao 



sao apagadas a fim de economizar me- 
moria. Os comandos CLS e PRINT e a 
tecla CLEAR funcionam normalmente, 
porem, a rotina nao imprime caracteres 
graficos. Para manter a compatibilidade 
com programas que utilizam esse recur- 
so, e possivel reverter 3 tela de texto 
normal digitando-se SCREEN 0. £ pos- 
sivel ainda fixar a tela de texto original 
na cor de laranja; experimente coman- 
dar SCREEN 0,1. Para retornar 3 alta 
resolu9ao, digite SCREEN 1. 

A instru9ao COLOR, alem de definir 
a cor que sera usada por CLS e pela ro- 
tina de SCROLL, estabelece tambem a 
cor em que ser3o impressos os caracte- 
res. Dessa forma, SCREEN 1,0: COLOR 
0,1: CLS imprime caracteres em preto 
sobre fundo verde, enquanto SCREEN 
1.0: COLOR 1.0: CLS imprime caracte- 
res em verde sobre fundo preto (as ins- 
tru9des SCREEN e CLS, obviamente, 
nao sao obrigatorias). Ja as rotinas de 
beep e auto-repeat podem ser ativadas 
da seguinte forma: 

POKE 1 18,1 - ativa beep 
POKE 1 18,0 - desativa beep 
POKE 1 19,1 — ativa repeat 
POKE 1 19,0 - desativa repeat 

O valor armazenado nos endere90S 
250 e 251 e assumido como o intervalo 



de tempo que uma tecla aguarda ao ser 
pressionada, antes de ser repetida. Este 
delay e ajustado inicialmente em 6500, 
mas pode ser modificado pokeando-se 
qualquer outro valor nestes endere90S. 

Da mesma maneira que SCREEN, e 
possivel modificar tambem o PMODE 
em uso. Note, contudo, que nao e se- 
guro trocar o PMODE quando a impres- 
s5o estiver situada na ultima Unha da 
tela, pois a rotina de SCROLL perde os 
valores de referenda e pode ocorrer per- 
da de controle do cursor. Quanto 3 ins- 
tru9ao RESET, ela n3o elimina o progra- 
ma da memoria mas faz o computador 
retornar 3 tela de texto normal. Para 
voltar 3 tela de alta resolu9ao, digite 
SCREEN 1. Um RESET geral do siste- 
ma e obtido por POKE 113,0: EXEC 
40999. 

Embora seja curto, este programa 
executa varias ope^des, e uma analise 
dos procedimentos de programa9ao en- 
volvidos fica para outras edi96es de MI- 
CRO SISTEMAS, Por ora, vale constatar 
que com criatividade e um pouco de tec- 
nica, nao ha limita9ao que nao possa ser 
superada, 3s vezes ate com vantagens. , 

Cteudio Costa 4 desenhista free-lancer e tem 
como hobby a programacao de microcompu- 
tadores. 




A Contabilidadc INTELSOFT e a unica que realmentc 
funciona em mode on-line. A qualquer moincnto voc£ 
pode fazer consultas no video para obter saldos dt* 
qualquer coma e lanqamentos em formato tie razio. 

A Contabilidade INTELSOFT funciona tamo em 
mil ros de 8 bits, com sistema operacional CP/M, como 
em micros de 16 bits, compadveis com o IBM PC. 
Todas as versfles s3o funcionalmente id&nticas 
podendo os mesmos arquivos serem usados por 
qualquer versio. Isso significa que ao mudar de 
computador voed continua trabaJhando da mesma 
maneira e aproveita iniegralmente o trabalho ja feito. 

Na tabela ao lado voce encontra as caracteristicas mais 
imponames da Contabilidade INTELSOFT. Use-a 
para facilitar a sua decisio de compra. comparando-a 
com as concorrentes. 

PRECO: 150 ORTNs para micros CP/M 

200 ORTNs para micros MS-DOS 
(compadveis com IBM PC) 

Caso vocf- queira experimentar o sistema antes de 
compra-lo, a INTELSOFT fornece uin pacote de 
demonstracio por apenas 15 ORTNs. O pacote de 
demonstragio e uma versao coinpleta do sistema, sem 
nenhuma limita«,3o, acompanhada do manual. O valor 
do pacote de demonstra^ao pode ser aplicado 
imcgralmeme, em ORTNs, na compra do sistema, cm 
um prazo miximo de 60 dias. 



compare voce mesmo a nossa contabilidade com os concorrentes 



CARACTERISTICAS 

Totalmente controlado por menus e 
realmente on-line. 

Numero m3ximo de contas 
Numero m^ximo de lanpamentos 
Maximo de algarismos por valor 
MSximo de graus no piano 

Cddigo de conta flexivel e definido pelo 
usuano com mimero vari^vel de dlgitos por 



INTELSOFT 



65535 

65535 

15 
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Lanpamentos de partida simples ou dobrada 

Histdricos livres e padronizados 

Permite trabalhar com ou sem centavos 

Permite consolidar os dados de diversas 
empresas ou filiais 

Emite relatdrios especiais para corretoras e 
distribuidoras de acordo com os modelos do 
Banco Central 

Permite que os dados do sistema sejam 
convertidos para serem usados por pacotes 
como o dBASE II ou III. LOTUS 1-2-3. 
VISICALC ou por programas escritos em 
qualquer Imguagem. 



INTELSOFT 



INTELSOFT Proieto e Desenvolvimento de Sistemas S/C Ltda. 

Praia do Flamengo 66 Sala 1 1 04 CEP 222 1 0 Tel. (021 >265 3346 - Rio de Janeiro - RJ 





Voce possui um TK90X e quer desenvolver o seu proprio adventure? 
Se a resposta for sim, este editor podera auxilia-lo nesta missao. 



Editor de Adventures 

Paolo Fabrizio Pugno 



A ntes de mais nada, vamos bo- 
tar os pingos nos devidos iis: 
os programas “Editor” e “Ad- 
venture” foram elaborados e 
adaptados para a linha ZX Spectrum a 
partir de uma idiia semelhante publica- 
da na revista italiana “ Microcomputer ”, 
para a linha Apple. 

O assunto 6 adventure, este fascinan- 
te tipo de jogo que p5e a dura prova 
nosso raciocinio, estratigia, paciencia, e, 
is vezes, ati mesmo sorte. Jogi-lo k uma 
coisa, elabori-lo £ outra totalmente dife- 
rente, onde devemos levar em considera- 
980 todas as possiveis situa^bes que pp- 
derSo ser enfrentadas pelo programa. 
Em resumo, nSo t nada ficfl, embora 
n8o seja impossfvel. E tern mais, para 
cada adventure que escrevermos, tere- 
mos que bolar um programa gerenciador 
especifico, que manipule os dados ne- 
cessirios. Isto fa z com que horas e mais 
horas sejam perdidas na depura^So de 
um maldito programa. As vezes, s6 de 
pensar em enfrentar tais dificuldades, 
desistimos logo de saida. Mas, que tal 
um programa universal, isto 6 , que sir- 
va para jogar todos os adventures que 
escrevermos? Tudo o que temos a fazer 
6 “ensinar-lhe” as regras do jogo. Porbm, 
6 necessirio que os dados Ihe sejam for- 
necidos de uma maneira padronizada, e 
6 aqui que entra em cena o “Editor”. 

Na realidade, s3o dois programas: 
com o “Editor” ensinamos as regras do 
jogo i miquina, que vai organizi-las de 



uma forma que o “Adventure” possa 
manipuli-las. Os dados sSo salvos em fi- 
ta, atraves da grava^Io de matrizes nu- 
miricas e alfanumiricas, que serSo pos- 
teriormente carregadas pelo “Adventu- 
re”. Desta forma, podemos inventar o 
adventure que quisermos, sem nospreo- 
cuparmos com o programa gerenciador. 
Como jogar um adventure feito por vocS 
mesmo perde logo a gra^a, a sugestSo 6 
realizar trocas entre amigos que pos- 
suam um ZX Spectrum ou TK90X; es- 
sa troca consistiria nas matrizes salvas 
em fita pelo “Editor”. 

EDITOR 

Antes de rodar o “Editor”, 6 obriga- 
t6rio anotar tudo o que for necessirio; 
fazer um mapa; dar numeros aos locais 
(come^ando por 1) e aos objetos; anotar 
os verbos e seus complementos; enfim, 
tudo o que depois seri pedido pelo pro- 
grama. 

Dado o RUN, o “Editor” iri pedir o 
nome do jogo, o qual nSo deveri ter 
mais de dez caracteres, pois seri utiliza- 
do como nome de uma matriz na hora 
de gravar os dados em fita. 0 programa 
entSo perguntari se o adventure 6 por 
pontos. Teclando S seri pedido o esco- 
re a ser atingido para que o jogador al- 
cance a vitoria. Logo a seguir, devemos 
introduzir o numero total de locais de 
jogo, ap6s o que seri pedida a descri^So 



de cada local. Essa descr^So n3o deve 
ultrapassar tres linhas (96 caracteres); o 
que, no entanto, pode ser alterado na li- 
nha 60, mas cuidado para nSo desperdi- 
?ar membria. Apos introduzirmos cada 
descr^So, devemos indicar que local 6 
atingido quando nos movimentamos nas 
seis dire9bes possiveis (Norte, Sul, Les- 
te, Oeste, Suba e Des?a). Introduzindo o 
zero para uma dire^So qualquer, iremos 
provocar o aparecimento da mensagem 
“nao posso ir nessa dire^ao”, quando a 
mesma for executada nesse local; intro- 
duzindo o numero do proprio local, nSo 
haveri deslocamento. Note-se que nSo 6 
obrigatdrio nos locomovermos para lo- 
cais vizinhos (no mapa). Aliis, quanto 
mais complicado for o mapa, mais inte- 
ressante o adventure se tornari. 

Na segunda parte do programa, e pe- 
dido o numero de objetos existentes no 
jogo e, depois, o nome de cada um (sem 
utilizar artigo) e sua localiza£3o inicial. 
Aqui, hi um truque: o local zero nflo 
existe no jogo, e serve para colocarmos 
temporariamente objetos que devem de- 
saparecer ou para guardarmos outros 
que irSo surgir posteriormente. Portan- •- 
to, se uma chave so aparecer quando 
quebrarmos um vaso (por exemplo), seu 
local inicial seri o zero e quando a a$3o 
“quebre o vaso” for executada, seu ve- 
tor poskjfo seri igual & posk^So do joga- 
dor. N5o hi limites de objetos por local. 

0 nome do objeto deve ter, no miximo, 

14 caracteres. 
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Agora vem a parte mais importante, 
os verbos: Pegue; Apanhe; Solte e Lar- 
gue, para a manipulafio de objetos (al- 
guns verbos ji estio programados no ad- 
venture por serem os mais utilizados, 
portanto, n3o 6 necessirio defini-los). 

Alim dos verbos, podemos utilizar os 
seguintes comandos: Inventaro (I), que 
mostra quais objetos estamos carregan- 
do; Pontos, informa sobre o escore; e 
Desisto, faz voce recome^ar o jogo ou 
termini-lo. E, 6 claro, Norte (N), Sul 
(S), Leste (L), Oeste (O), Suba e De99a, 
para os movimentos. 

Para definir um verbo (e, portanto, 
uma a^io), e necessirio que tenhamos 
uma sirie de inform afbes. Suponha que 
a descrifSo de um determinado local nos 
diz que hi uma porta fechada ali. Esta- 
belecemos que essa porta so pode ser 
aberta com uma chave, que deve estar 
com o jogador, e que ao abri-la, perde- 
mos a chave e somos transportados para 
outro local qualquer. A a$5o seri “abra 
a porta”, e ela s6 pode ser executada 
nesse local onde hi a porta e que, alim 
disso, ao executi-la ganhamos alguns 
pontos. 

Como codificar este exemplo? O mi- 
cro vai perguntar: 

1) Imperativo do verbo: 

Abra. 

2) Complemento: 

Porta (sem utilizar artigo). 

3) Resposta do micro: 

“Ok. Puxa que lugar estranho!” (se qui- 
sermos que a resposta seja somente 
“Ok.”, basta teclarmos ENTER). 

4) Para que local sou transportado? 
(Aqui deveri ser indicado o numero do 
local de destino, sendo que 0 indicari a 
permanincia no local). 

5) Deslocamento de objetos: 

Nesta pergunta, ao introduzirmos um 
numero inteiro positivo, indicamos que 
o objeto que tern esse numero iri apare- 
cer no local. Um numero inteiro negati- 
vo indica que o objeto que tern esse nu- 
mero (em modulo) iri desaparecer, ou 
melhor, sua posi93o seri a sala zero, de 
que falamos hi pouco. No nosso caso, 
se a chave for o objeto numero 3, tecla- 
remos: -3. Se o numero indicado for ze- 
ro, n3o haveri deslocamento de objetos. 

6) Varia9So de escore (s6 se o jogo for 
por pontos): 

Se o adventure for por pontos, introdu- 
ziremos a varia93o no escore do jogador 
(positiva, negativa e nula) quando for 
executada esta a<;2o. 

7) Onde ex ecu tar o com an do? 
Introduzindo um ntimero inteiro posi- 
tivo, indicamos que esta a9So so pode 
ser executada no local que tenha este 
numero. Um numero inteiro negativo in- 
dica que esta a9<Io s6 nio pode ser exe- 
cutada no local que tenha este numero 
(em m6dulo). Zero indica que a a93o 



pode ser executada em qualquer lugar. 

8) Objeto necessirio: 

Aqui, indicamos o numero do objeto ne- 
cessirio para a exec 119 §0 desta a93o. 0 
objeto deve estar em poder do jogador 
para que esta a$Sc seja executada. Zero 
indica que nSo 6 necessirio objeto al- 
gum. No nosso caso, teclaremos 3 (o 
numero da chave). 

9) Mais de uma execu95o? 

Se a 3930 puder ser executada virias ve- 
zes, teclaremos S, caso contririo, tecla- 
remos N. Se teclarmos N, o micro so- 
mente executari esta a93o uma vez, re- 
cusando-se a repeti-la. Por exemplo, n3o 
podemos quebrar o mesmo vaso duas ve- 
zes. 

Note que se voc£ quiser incluir o ver- 
bo “examine”, deveri programi-lo para 
cada objeto que puder ser examinado. O 
programa permite que tenhamos diver- 
sos imperativos iguais, desde que os 
complementos sejam diferentes; assim 
como permite complementos iguais, se 
os imperativos forem diferentes. EntSo, 
podemos ter um mesmo adventure: abra 
porta, abra janela, abra garrafa, quebre 
garrafa, tampe garrafa, examine chave, 
examine vaso, examine garrafa etc., des- 
de que forne9amos as inform a95es ade- 
quadas para cada caso. 

Observa95es importantes: o local -1 6 
o que indica que o jogador morreu ou 
foi eliminado do jogo. Portanto, se ao 
executar alguma a93o o jogador levar a 
pior, devendo ser eliminado (por exem- 
plo: salte despenhadeiro), basta trans- 
porti-lo para o local -1. Analogamente, 
o local -2 6 o da vitbria. Quando 0 ad- 
venture for resolvido, basta transportar 
o jogador para o local -2, que automati- 
camente o programa desvia para uma ro- 
tina de felicita9des. A passagem para es- 
tes locais pode ser feita normalmente, 
seja atravis de conseqiiencia de uma 
3930 (ou a90es) como por deslocamento 
voluntirio (N, S, L ,0, Suba ou Des9a). 

A16m disso, quando um objeto esti 
na posi93o -1 significa que esti em po- 
der do jogador, o qual poderi carregar 
ati cinco objetos. As posifbes dos obje- 
tos e do jogador nSo interferem entre si, 
pois s3o guardadas em variiveis distin- 
tas. 

Por fim, seri perguntado o local ini- 
cial de jogo, e, entSo, serSo gravadas em 
fita as 14 matrizes que contftm os dados 
introduzidos. Devido is caracterfsticas 
do micro, 6 necessirio que apertemos 
uma tecla qualquer antes do SAVE, por- 
tanto, cuidado para nSo se distrair. Se o 
VERIFY acusar erros, rebobine a fita e 
di um GO TO 400. 

Quanto i digita93o, esta nSo apresen- 
ta maiores problemas; as escritas em IN- 
VERSE s3o obtidas teclando-se INVER- 
SE VIDEO, antes do texto, e TRUE VI- 
DEO, depois. Cuidado miximo nas li- 




CP500/M,® 
uma grande 
decisao 
para homens 
que tomam 
decisoes. 

O CP 500/M 80 agora tambem 
e compativel com o CP/M, o Sistema 
mais difundido no mundo. lsso 
significa que, somando o tradicional 
DOS 500 com o CP/M, voce 
passa a dispor da maior biblioteca de 
programas aplicativos do 
mercado. E voce podera tirar vantagens 
de programas como Calc Star*, 
dBase II*. Word Star* e muilos outros, 
que vdo agilizar tanto 
sua vida quanto a de sua empresa. 
Para voce, executivo, 
o CP 500/ M 80 e uma poderosa 
ferramenta de auxilio a 
decisOes gerenciais, com programas 
especificos em sua area de 
atuacio, como analise de fluxo de caixa, 
corn roles de compras/custos/ 
estoques e administracio financeira. 
Como resultado final, sua 
empresa tera grandes ganhos de 
produtividade e eficiSncia. 

CP SOO/M 80 , um grande passo na 
informaiica com a Qualidade CP 
e a Tecnologia Prologica. 
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EDITOR DE ADVENTURES 



nhas 410 e 430; elas devem ser iguais, 
exceto pela substitui^ao dos SAVE pe- 
los VERIFY. Uma dica e escrever a li- 
nha 410, edita-la e substituir o numero 
de linha e os comandos SAVE por 
VERIFY. 

ADVENTURE 

Ao rodar o segundo programa, ele 
iri simplesmente perguntar o nome do 
adventure que desejamos carregar, e, 
logo ap6s o termino do carregamento, 
entrar automaticamente em execu^ao. 

Algumas recomenda^Oes: para movi- 
mentar-se, tecle “va para o norte” ou 
simplesmente N. Ao ex ecu tar uma a?5o, 
voc€ pode usar o artigo que quiser, 
tendo em mente que o programa reco- 
nhece somente a primeira e a ultima 
palavra da frase introduzida. Podemos 
entio digitar: pegue martelo, pegue o 
martelo, pegue esse martelo ou pegue 
essa droga de martelo; que o efeito 
seri o mesmo em todos os casos. Esse e 
o motivo pelo qual o Editor nio aceita 
os artigos. 

OUTROS MACETES 

Se hi uma sala escura que s6 revela 
seu conteudo se acendermos uma vela 



(por exemplo), entio, 6 conveniente 
termos duas salas; sendo uma com a 
deserto da escuridio, sem outras sai- 
das ou objetos; e outra, que 6 o seu 

equivalente, caso tenhamos luz. Defi- 
nimos assim uma a^io, “acenda vela”, 
de tal forma que so podera ser executa- 

da na sala escura e se tivermos a vela, 
e que alem disso, nos transporte para a 
outra sala, com a outra descrifio. E 



um verbo, “apague vela”, que fa?a o 
contririo. 

Experimentalmente, conseguiu-se di- 
mensionar matrizes referentes a 100 sa- 
las, 80 objetos e 150 verbos, o que 
acreditamos serem suficientes para a 
maioria dos casos. O comando POKE 
23658,8 fonja o cursor para o modo 
C (maiusculas). Se voce quiser incre- 
mentar um pouco mais, experimente 
um POKE 2360930. 



UM EXEMPLO 



Aqui esta um exemplo de adventure com 
cinco salas. Tente roda-lo. Os numeros estao 
na ordem em que o micro os pede. 

Nome - ‘Teste’’ 

£ por pontos? - Nao 
Quantos locais? - 5 

LOCAL 1 

Descrigao: “Estamos numa velha sala de 
estar. Ha muito po.aquil” 

I NORTE I SUL I LESTE I OESTE I SUBA DESCA I 



LOCAL 2 

Descrigao: "Estamos num corredor. Ha 
uma escada que desce e uma porta”. 



NORTE I SUL I LESTE I OESTE I SUBA I DESCA 



LOCAL 3 

Descrigao: “Que lugar estranhol Ha um 
botao na parede". 

I NORTE I SUL I LESTE I OESTE I SUBA I DESC'A I 



LOCAL 4 

Descrigao: “Esta muito escuro, masperce- 
bo uma tocha apagada na parede”. 

I NORTE I SUL I LESTE I OESTE I SUBA I DESCA I 



Adventure 



5) ) THEN GOTO 195 
13< ! F BIOCIU, TO CODE Ctlt.l 
5>> THEN GOTO TVS 
1 35 IF Mt) AND E < I > THEN PRINT 
FLASH If 'Mas J» fiz IcsoH's GO 
TO 190 

1 40 IF 0(1) 1HLN IF POMlMO-1 
THEN PRINT "Atnda nao pojsa f *z 
c-lol I": GOTO 190 
145 IF U(I)=0 THEN GOTO 160 
150 IT SON U*l> = -1 THEN IF POS* 
ABS U*l> THEN PR INI Nao poHO.f 
(M-IO »qm'*''« UOIO 190 
155 IF U(l>>0 AND UIDOPOS THl 
N PRINT “Nao rosso fazt-lo J'lui 1 
l"J GOTO 190 
160 PRINT • *M4< I ) 

165 IF OUT THEN LET POS'D* ITS 
IF POS)=i THEN PRINT ’^IPOS:” 
170 IF F<I>=0 THEN GOTO 185 
175 IF SGN F<1>*1 I HEN LET P<!» 
*P0S: GOTO 1B5 
1 B0 LET PtABS F<11>=0 
185 LET E(I)»ls IF SPON THEN LE 
T SCORE»SCORE«A< 1 ) 

190 LET I=NV: LET GU-1 
195 NEXT I 

200 IF SCORE ) =P0NMAX THIN GOTO 
495 

1*05 IF OU THEN GOTO 35 
210 IF NOT 84-*"P0NT0S" THEN GOT 
0 220 

212 IT NOT SPON THEN PRINT 0 A 
DVtNTURE NAO E POR PONTOS*' s GOT 

0 BO 

215 PRINT TEMOS ATE AGORA "sSC 
OREt" PONTOS GOTO 80 

*20 IF NOT (AS* “PEGUE OR AS A 
PANHE") THEN GOTO 280 
225 IF B4* " THEN PRINT 'DtUA-M 

1 PELO MFNOS 0 OUE * " * s GOTO BO 
230 IF J=5 THEN PR IN I NA‘> POSL 

0 CARREGAR MAIS NADA*' s GOTO BO 
235 LET aw 0: FOR II TO NO 
240 IT NOT IR4*0*<1. TO LODE OS 
<1.15** ANl* P* I ( »P0S) IHLN GOIO 
265 

245 PRINI OK. «A4: I ':B4 



270 IE NOT OU I HE N PRINT 1NVERS 

E l:B4:"9 NAO VE JO ISSO POR AO 

III." 

275 GOTO DO 

280 IF NOT <A4 = 'S0LIE" OR A4»"L 
ARGUE") THEN GOTO 335 
285 LEI aU-0 
290 FOR 1=1 TO NO 
295 IF NO I lB*=Ot*I. TO CODE 04 
<1,15)1 AND P(I)=-ll THEN GOTO 3 
20 

300 PRINT “OK. :A4: I ~:B4 

305 LEI QU=1 

310 LET P<I)»POS 

315 LET J-J-l 

320 NEXT I 

325 IF OU I HEN GOIO 35 
330 PRINT "NAO TEMOS ":B4: CON 

OSCOI": GOTO BO 

335 IF A4()"DESISTO" THEN GOTO 
345 

340 CLS : PRINT NESTE ADVENTUR 
E VOCE FEZ :SC0RE " PONTOS. ISTO 
E \"«SCOR£/PONMAX**10O! X" ’"DO T 
OTAl" GOTO 475 
345 IE NOT (A4- I" OR A4«"INVEN 
TAR 10") THEN GOTO 400 
350 LET au*o 
355 FOR I«1 TO NO 
360 IF PII)()-1 I HEN GOIO 3B5 
365 IF OU THEN GOTO 380 
370 PRINT "ESTOU CARREGANDO : " * 
375 LET 0U*1 

380 PRINT TAB 10; BRIGHT 1;04*1 
TO 14) 

385 NEXT I 

390 IF OU THEN GOTO BO 
395 PRINT "NAO ESTOU CARREGANDO 
NADA...'s GOTO 80 
400 IF NOT ( ( A4»"N" AND H<POS.t 
)> OR <A4="VA" AND Bi»"N0RTE" AN 
D h(POS.l>)> THEN GOTO 410 
405 LET POS*M(POS.l>» GOTO 30 
410 IF NOT < ( A4="S" AND MIP0S.2 
)) OR ( A4*"VA" AND B4-"SUL" AND 
M<P0S.2)>) THEN GOTO 420 
415 LET P0S=M<P0S.2)» GOTO 30 
420 IF NOT ( < A4 = "L" AND M(P0S.3 
)) OR <A4=''VA' AND B4 = "LESTE' AN 
D M( PCS. 3 > ) > THEN GOTO 430 
425 LET P0S-MTP0S.3); GOTO 30 



4*0 II NO I * * A4 -O’ AMD MIPOS.4 
i> UR » h! VA AND B4= OESIE AN 

0 M*P" .4*1* THEN GOIO 440 

4 15 111 PO'i M'POS.4 * t GOTO 10 
440 II NO! 1A4- SUBA AND M'Pus 
.5*1 IHLN OHIO 450 
445 LEI I’OS *M* P')S .5*6 GOT V JO 
450 IF NO I *A4 DESCA AND M'PO 
S.6.M IHLN GOTO 460 
455 LEI POS -M* POS, 6 * I GOTO 10 
460 II I LN 04 1 UR A4= 'SUBA OR 
A4 OFSI A OR A4 VA IHLN PRIN 

1 NA*) POVSO IH NESTA DIRELAO* 
GOTO 80 

465 PRINT FLASH Is INK 2s PAPER 
6; NAO INTINDl A SUA ORDEM*' : G 
OTO 80 

4*0 PAUSE O! BORDER Pi PAPER Os 
INK 6S CLS s PRINI A I 10.0: FLA 
SH It BRIGHT 1;"S1NT0 MUITO. MAS 
VOCE PEROEll... MEL HOW S0R1I NA 
PROXIMO VE 7 . . . s FOR I >40 TO 0 
STEP is SOUND .Ol.E: NEXT T 
475 INPUI INK 9; ailLR JOl.AH 01 
NOVO' * S/N * : 114 

460 II M4 * N IHIN x TOT* 

485 TOR I -1 10 NO: lE'T Pll> a*. I 
> : NEXT I: LET P*)S=POSt : LEI SCO 
RE o: FOR 1*1 TO NV: LET Ell'=0: 
NF. X I 1 : LEI JO 

490 BORDER l: PAPER 5s INK 08 l 
LS t GOIO 30 

495 PAUSE PS BORDER 4s PAPER 6s 
INK I : CLS : PRINI AT 5.0: PI AB 
H 1 ; "MEUS PARABENS* VOIE CONST GU 
IU COHPLETAR 0 ADVENTURE ' *'": 
FOR F = 0 TO 40: SOUND .01. I s NE * I 
F: IE SPON THEN PRINT '"VOCE 
FEZ ": SCORE : PONTOS . ’ ’ “DE UM TO 

TAL DE “iPONHAXl"." “'ISTO E 
SCORE 7P0NMAX* 1 OP : “X DO 10TAL ' " 
500 GOTO 475 
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BRASILTRADE CENTER 

Comercio, Industria e Participates S.A. 

COMPUTER SHOPPING 



Mesas 

pa ra ^^cr$ 1 . 549.000 

Microcomputadores 

FabricagSo propria • Cores discretas • Desenho moderno 



BTC-05 M 



BTC-03 M 







BTC-02 M 



Cr$ 1.149.000 



BTC-04 M 
0 BTC-01 IVI I 

Cr$ 899.000 



EQUIPAMENTOS 

Micros das linhas: Sinclair* TRS-80* CCE • Unitron • 
Dismac • TK 2000 II • TK 85 • Exato Pro • Impressoras 
Modem • Etc. 

SUPRIMENTOS 

Perifericos • Disketes • Fitas • Drives • Placas de 
Expansao • Interfaces • Formul6rio Continuo • Cabos 
• Arquivos para Disketes • Etc. 

SOFTWARE 

Programas e Jogos variados para todas as linhas e 
marcas de Computadores 

VIDEOS 

Curso de Ingles em video cassete • Telao • Suporte 
para TV • Transcodificaqao para todos os sistemas • 
Fitas: VHS - BETA-U-MATIC e para limpeza de cabega* 
Baterias para 2 e 8 hs. • lluminadores • Cabos de 
extensao para Camaras* Bolsas para Camaras e Videos 



Nas lojas Brasil Trade Center, voc£tambem 
encontra video-game, cartucho com jogos, 
som, telefonia, etc., das melhores marcas. 

VISITE UMADENOSSAS 
LOJAS E COMPROVE O 
QUE ANUNCIAMOS 

Matriz: Av. Epitacio Pessoa, 280 
Ipanema-RJ — Tels.: 259-1299/259-1499 

Filiais: Rua da Assembleia, 10 — Loja S-112 
Centro-RJ — Tel.: 222-5343 

Rua Silva Vale, 416 — Cavalcante-RJ 
Tels.: 592-3047/592-3098 

Rua Lopes Trovao, 134/Sala 201 
Niteroi-RJ — Tel.: 710-3659 

Rua Conde de Bonfim, 229 — Loja A 
Tijuca-RJ — Tel.: 284-2031 



SERVIQO EXPRESSO REMETEMOS PARA TODO 0 BRASIL 



OFERTA VALIDA COM A APRESENTAQAO DESTE ANUNCIO 










1>PEH 

2 HEM •• EDITOR •« 

3 REM 

10 BRIGHT 0! PAPER 7: INK 1» B 

ORDER 1 “ CLS S POKE 23458,8s CLS 
s INPUT DUAL E 0 NOME DO ADVEN 
TURE 'AS: IE AS-"" THEN DO 

TO 10 

20 LET SPON-0: LET PONMAX=l 
30 PAPER At CLS : PRINT “0 ADD 
EN1URL E POR PONTOS ? <S/N)"'s I 
NPUT HS: PRINT MSt IE HS< >"N" AN 
0 HS< > S" THE N GOTO 30 

40 IE HS-"8" THEN LET SP0N=1 s 
PRINT ')UAl E 0 SCORE MAXIMO ?"« 
INPUT PONMAXs PRINT PONMAX 
50 PAPER 4 * BRIGHT It CLS t IN 
PUT "8UANT0S L0CA1S 1EM 0 ADVENT 
URE ’"»NL 

60 DIM LV,NL.VA»s DIM M<NL,A) 
70 FOR I«1 TO NL 
80 CLS * PRINT DESCRICAO DO L 
OCAL t INVERSE Itlt INPUT LINE 
CXI, TO M PRINT LS1I. TO >” 

90 PRINT "OUE L OCA IS ALLANCO E 
XECUTANDO. 

100 PRINT NORTE (N) ~jt INP 
UT Ht LET M(I,ll*Ht PRINT H 
110 PRINT 'SUL <S> "is INP 

UT Ht LET M(I.2 )=Hs PRINT H 
120 PRINT "LESTE (L) "U INP 
UT Ht LET H< X , 3 ) *H ! PRINT H 
130 PRINT "0E8TE (01 "it INP 
UT Ht LET M(I.4)-Ht PRINT H 
140 PRINT "SUBA "|t INP 

UT Ht LET M 1 1 , 5 > "Ht PRINT H 
150 PRINT "DE8CA “tt INF 



UT Ht LET Ml I , A)*H! PRINT H 
160 INPUT "TUDO OK? "iHS: IE HS 
»"N" THEN GOTO 80 
170 NEXT I 

180 PAPER It BRIGHT Is INK 7t C 
LS t INPUT "OUANTOS OBJETOS HA N 

0 JOGO 7 "iNO* DIM 0SCN0.15)! 01 
M PINO) 

190 FOR t«l TO NO 
200 CLS t PRINT "OUAL 0 OBJETO 
"l INVERSE III*! INPUT HS: IET 0 
III. TO 14>=HSt LET 0111.15) -CHR 
S LEN HS: PRINT HS ' ’ 

210 PRINT "EM OUE LOCAL SE ENCO 
NTR A n *"t INPUT PII)t PRINT PUT 
220 INPUT "TUDO OK? "lH*t IF HS 
='N" THEN GOTO 200 
238 NEXT I 

240 PAPER 2t INPUT "OUANTOS VER 
BOS' 1 " iNVt DIM VS I NV. 15) 8 DIM CS 
1 NV , 1 5 ) t DIM MSINV.64)! DIM DINV 
IS DIM EINV): DIM AINV)t DIM U1N 
V)t DIM B I NV) t DIM KINV)t FOR 1- 

1 TO NV 

250 CLS t PRINT OUAL 0 VERSO " 
ll't INPUT HS: LET V01I, TO 14>- 
HS: LET VS<I.15)«CHRS LEN HS: PR 
INT Hi 

260 PRINT '"OUAL SEU COMPLEMENT 
0 ?"l INPUT Hit LET Cill. TO 14 
>-HS: LET Cil I . 15I-CHRS LEN Hit 
PRINT Hi 

270 PRINT '"OUAL A RESPOSTA DO 
MICRO ?~! INPUT LINE Hit IF Hi-" 
" THEN LET Hi»"OK." 

280 LET M*1I, TO >-Hit PRINT Mi 
(I. TO ) 



290 PRINT "'PARA OUE LOCAL SOU 
TRANSPORTADO 10-NAO SOU TRASNSPO 
RTADO "t INPUT DID! PRIN 

T Dll) 

300 PRINT '"DESLOCAMENTO DE OBJ 
ETO? Do."!!.©)"! INPUT F 

II) ! PRINT F1I) 

310 IF SPON THEN PRINT "'VARIAC 
AO DE 9C0RE7 (♦n.-n.O) "« INP 

UT All)! PRINT All) 

320 PRINT '"ONDE POSSO EXECUTAR 
0 COMANDO" 1 "! INPUT UII)i PRIN 
T "SALA "iU(D 

330 PRINT "'OUE OBJETO OEVO TER 
? 1 0-NENHUM)" l INPUT BID! IF B 

ID THEN PRINT OilBID. TO CODE 
OilBl I > . IS) > 

340 PRINT "'POSSO EXECUTAR ESTE 
VERBO MAIS DE UMA VEZ? tS/N>~! 
INPUT Hit IF Hi»"N" THEN LET K< 
D-D GOTO 360 
350 LET KID-0 

360 INPUT FLASH 1|"TUD0 OK? "iH 
i: IF Hi-"N" THEN GOTO 250 
370 NEXT I 

380 PAPER 4t INK 0t BRIGHT 0: C 
LS ! PRINT "OUAL 0 LOCAL DE INIC 
10? "it INPUT POS! PRINT POS 
390 DIM Z 1 6) t LET Z1D-P0S! LET 
Z12 >*SPONt LET Z 1 3 ) -PONMAX t LET 
Z I 4 ) -NL * I'll Z<5)-N0l LET Z<6>- 
N V 

400 PAPER 7! INK 2t CLS ! PRINT 
AT 10.5l"VOU GRAVAR AS MATR1ZES 
APERTE UMA TECLA" I P 

AUSF 0 

410 SAVE Ai DATA ZOt SAVE "LOC 



AIS" DATA LiO! SAVE DESLOC." D 
ATA Mils SAVE "OBJETOS DATA Oi« 
)! SAVE "POS. OBJ. DATA Pl)t SAV 
E "VERBOS" DATA Vil)t SAVE "COMP 
L." DATA Cil)! SAVE ' MENSAGENS" 
DATA Hll): SAVE "VOUPARA" DATA D 
<>s SAVE "DES.OBJ." DATA F I I : SA 
VE "AUM. SCORE" DATA AO! SAVE P 
ODE'’ DATA III): SAVE "OBJ.NECES. 
" DATA BO! SAVE 'REP. VER." DATA 
KD 

420 CLS t PRINT AT 10.0! "RLBOBI 
NE A FDA PARA 0 VERIFY" 

430 VERIFY Ai DATA ZOt VERIFY 
LOCAIS" DATA LiO I VERIFY "DESL 
OC." DATA MOt VERIFY "OBJETOS" 
DATA Oil)! VERIFY "POS. OBJ." DAT 
A POt VERIFY "VERBOS'' DATA ViO 
t VERIFY "CO M PL." DATA CiOt VER 
IFY "MENSAGENS" DATA Mil): VER I F 
Y "VOUPARA" DATA 01): VERIFY "OE 
S.OBJ." DATA FO! VERIFY "AUM. SC 
ORE" DATA AO! VERIFY "PODE"" OA 
TA UOt VERIFY "OBJ.NECES." DATA 
Bt>! VERIFY "REP. VER." DATA KO 
440 CLS : PRINT AT 10.0! FLASH 
It "OK OK OK OK OK OK OK OK OK OK 
OK " I A T 20.01 FLASH 0: "BOM JOGO 
COM. ..""ADVENTURE'""" 



LOCALS 

Dcscrigao: “Estamos num porao. Veja uma 
saida ao Sul e uma caixa no chJo.” 

I NORTE I SUL I LESTE I OESTE I SUBA I DESQA I 



Quantos objetos? - 7 



DESCRICAO 
CHAVE 
I SPUE IRQ 
MAPA 

BEUXilQ - 
MICRO 
MARTELO 
SERROTE 



Numero de verbos - 6 

Para exemplificar a entrada dos verbos, 
complementos e outras informagoes sobre o 
adventure, descreveremos apenas o primeiro 
exemplo. Portanto, valerao para todos os 
exemplos, ap6s o primeiro, as mesmas pcrgun- 
tas. 

Verbo 1 - Abra 

Complemento - Caixa 

Resposta do micro - Veja o que achamosl 

Transportado para - 0 

Deslocamento de objetos - 1 

Onde pode executar — 5 

Objeto que deve ter - 0 

Pode-se executar mais de uma vez - N 



Verbo 2 

Aperte 

Botio 

Ok (tecle apenas Enter) 
-2,0, 3.0. N 

Verbo 3 
Abra 
Porta 
Ok 

3,0,2, l.N 



Verbo / 

Examine 

Mapa 

£ um mapa de Hong Kong I 
0,0,-l,3,S 

VerboS 

Acenda 

Tocha 

Assim 6 melhor 
5. 0,4, 2, S 



Verbo 6 
Apague 
Tocha 
Ok 

4, 0,5, 0, S 



Local de inidoi-l 



VARIAVE1S UT1LIZADAS PELOS 
PROG RAM AS 

L$ (matriz alfanumerica) - Cont6m as descri- 
bes dos varios locais. 

M (matriz numerica) — Contem os vetores de 
deslocamento nas seis diregdes (N, S, L, O, 
Suba e Desga). 

0$ (matriz alfanumerica) - Contem os no- 
mes dos objetos, sem artigo. 

P (matriz numerica) - Contdm a posigao de 
cada objeto. Ha posigdes particularesl 

-1 indica que o objeto esta com o jogador 

0 indica que o objeto esta no local zero 
(guarda-objetos) 

V$ (matriz alfanumerica) - Contem o impe- 
rativo dos verbos do jogo. 

C$ (matriz alfanumerica) - Contem o com- 
plemento de cada verbo. 

M$ (matriz alfanumerica) - Contem a mensa- 
gem a ser dada ao jogador quando for execu- 
tado o verbo correspondente. 



D (matriz numerica) - Contem o eventual 
deslocamento do jogador relativo ao verbo 
correspondente. 

F(matriz numerica) - Contem o eventual des- 
locamento de objetos (aparecimento ou desa- 
parecimento) relativo a execugao do verbo 
correspondente. 

A (matriz numerica) - Contem os pontos re- 
latives a execute do verbo correspondente. 

U (matriz numerica) - Contem o flag que in- 
dica onde o verbo correspondente pode ser 
executado (0 =em qualquer lugar). 

B (matriz numerica) - Contem o numero do 
objeto necessario a execugao do verbo cones- 
pondente. 

K (matriz numerica) - Contem o flag que in- 
dica se determinado verbo pode seT executado 
mais de uma vez. 

Z (matriz numerica) - Contem os seguintes 
flags: 



Z(l) = posigao inicial 

Z(2) = flag que indica se o adventure 6 por 
pontos 

Z(3) = escore a ser alcangado 
Z(4) - numero de locais 
Z(5) - numero de objetos 
Z(6) - numero de verbos 

J - Numero de objetos em poder do jogador 

A$ - Primeira palavra introduzida 

B$ - Oltima palavra introduzida 

PONMAX - Escore a ser alcangado 

SPON - Indica se o adventure 6 por pontos 

SCORE - Escore do jogador 

POS - Posigao do jogador (ver texto) 

H$ - Ordem do jogador 



Paolo Fabrizio Pugno cursa atualmente o pri- 
meiro ano da Faculdade de Engenharia Indus- 
trial (SP) a possui um ZX Spectrum, com o 
qua! desenvolve programas. 



MICRO SISTEMAS. Janeiro/86 



A 






CONTINUAMOS RENOVANDO 



A mais completa iinha de Software para o - 
Color Computer CP. 400, Color 64, MX-1600 



A. 






Zaxxon/Buzzard bait 

• Draconian/8 ball 

■ Speed racer/Bag-man 

• Galagon/Demon seed 

■ Space wreck/Sea dragon 

• Sanctum/R-ball 

■ Sea quest/Quix 

• Calixto island/Rooyan 



MICROMAQ • Rua Sete de Setembrg 92 • Lj. 106 • Tel.: (021) 222-6088 CEP 20050 RJ 

PR0M0QA0 DE FERIAS 

Fitas com dois programas 

SelegSo de alguns dos melhores “games” agrupados dois a dois. 

lit PR.009 - Lunar rover/Devil assault PR.017 • Tin 

PR.010 - Time patrol/Moon shuttle PR.018 - Mu 

nan PR.011- Canyon climb/Fly tiger PR.019 - Crc 

eed PR.012 - Decathlon/Cashman PR.020 • Co 

jragon PR.013 - Color car/Kron 

PR.014 - Rat/The king ATENQA0: • qualquer fit 

PR.015 - Cristal/Doodle bug - as fitas acii 

yan PR.016 - Time bandit’s/Tut's tomb dequalquei 



PR.017 • Time fighter/Moon hopper 
PR.018 - Mudpies/Death trap 
PR.019 • Crash/Ranger 
PR.020 - Color panik/Shenanigans 

qualquer fita acima 40.000. 
as fitas acima nao sofrem desconto 
de qualquer esp&ia 



Solicite nosso catalogo com mais de 300 produtos 

REC0RDISTAS DE VENDAGEM - 1985 



WORLD'S OF FLIGHT - Simulador de v6o 

CYRUS • Para amantes do |ogo de xadrez 

ZAXX0N • Enfrente os perigos de uma platalorma espaciai 

CRISTAL • Sensaciona! • estllo Pac Man em 30 

SAILOR - Derrote o Brutus e conquiste o coragSo da Olivia. 3 lelas. 9 niveis de 

diliculdade 

SPEED RACER • Corrida de carros (tipo flipper) 

DRAC0NIA • Salve os prisioneiros do espago e luja do dragfio 
BUZZARD BAIT • Ataque os passaros com sua langa 
GALAG0N Idbntico ao Fantastic do flipper 
QUIX • Id^ntico ao do dipper Preencha 75% da tela sem ser atingido 
DECATHLON • 10 provas olimpicas 

SPACE WRECK - Defends sua base espaciai do ataque inimiga 3D com naves 
estilizadas 



Para programas em disco acrescer 
60.000 por programa (Disco + Embalagem) 



PD001 CALIXTO • A|ude o arqueblogo (Prol. Lagano) a recupefar o tesouro 

PD003 SEA QUEST Recupere o lesouro perdido 

PD004 BLACK SANCTUM- Exorcize odembmo 

PJ023 DEMON SEED • Deslrua pSssaros, sementes e naves 

E002F MUSICA 2 • Para compor, arranjar. copiar partiluras etc. 

PU008F SUPER SCREEN • Aumenta o tamanho da lela (52 colunas, 24 linhas) Acrescenta 
lungbes diversas 

PA002F ELITE CALC Plamlha eletrbmca. Ate 255 linhas e colunas. Manipula textos, numeros 
etc. Emite graficos e permite ordenar colunas e linhas. Manual em portugues 
PL001F EDTASM • Lmguagem Assembler 
PL0Q5F COLOR LOGO • Lmguagem educativa logo 

PA007D PRO COLOR FILE • 0 melhor banco de dados |A criado para o color. Somenle em 
disco (prego mcluso) 

PA006F TIMS/SIGA Banco de dados que permite criar ate 8 campos. Manual em port 



A GRANDE SENSAQA0 

COLOR MAX (modulo de alta*resolu$ao) • Reproduz no color com 64K a perfor- 
mance qrafica apresentada pelo Macintosh, imitando as funedes do MacPaint. 
Utiliza tecnicas modemas de programagao tipo “Icons” e “Pulldown Menus”. 
Composto de placa de Hardware e programa em fita ou disco E001F 

(Para cilculo de 0RTN, considerar a data da poslagem) E001D 



CONSULTE. 
BAIXOU ! 



•J0G0S SO PARA DISCO 
(prego c/disco mcluso) 



0UTR0S PROGRAMAS 



EAGLE - Simula um vbo espaciai em que vocb deve aporlar e levantar vdo da lua 

ou de marte. Manual em mgtes. Requer 2 Joysticks 

THE FACTORY • Cue a Iinha de montagem de uma libnea e teste a sua membria 

SANDS OF EGYPT • Descobrir o misterio da tumba do Farad 

CRIME • Desvende o misterio de um crime. Alinal, voed e o detetive 

MAJOR ISTAR • Viaiando atravds das cidades submarinas do sdculo 21. voed deverd 

desvendar o misterio de Trident 

SAM SLEUTH • Desvende o misterio de um desaparecimento 

STAR TRADER - Mercador das galaxias 

• GRAFICOS 

ART GRAF ■ Cnado pela Micromaq. Necessita 64K Trabalha com 8 telas simultineas 
na membria no mais aito modo grdfica PG004F 

PG0040 

VIZIDRAW - Muito poiente para desenhar. Acompanha o Vizidump. que leva suas 
telas para a impressora PG005D 

ART GALERY - Potenle gerador de grdficos e telas de desenho PG002F 

• SOM. SINTET1ZAQA0 

COLOR QUAVER • Para compor, arranjar, copiar partituras, monta espectro, cna 



• EDUCATIV0S 

TABELA PERIODICA DEOUiMlCA P 

PI 

MAPA MUNDI • Oesenha na tela Mapa Mundi, Ortogrdfico ou Polar P 

PI 

Desconto 

at6 150.000 sem desconto 

de 151.000 a 250.000 5% 

de 251.000 acima 10% 



• APLICATIVOS P/FITA 

WRITER II • Tela de atd 85 colunas, "Window" do texto com a forma final. Rermlte 
msergdo de caracteres em porluguds (na imp.) Mais de 100 lungbes PA001F 
MALA POSTAL (I) • Totalmente criado no Brasil. Emite etiqueta. relatbrio e lista 
telelbnica PA013F 

ASTR0L0GIA • Gerador de mapas astrolbgicos PA017F 

HANDY MAN - Auxiliar no cAlculo de custos de obras civis, cdlculo de areas, 
coberturas etc. PA030F 

STATGRAF - Estallstica. Gera grdficos com regressbo linear, mbdias, desvios etc. 

PA021F 

• APLICATIVOS P/DISCO 

VIP WRITER- Idem aoPAOOlF PA001D 

VIP DATABASE - Banco de dados PA015D 

MATHMENU • Sislema para auxilio no estudo da maiematica PA029D 

DYNACALC - Planilha eletrbnica. Gera grdficos em alia resolugao PA011D 
ELCIRCAN • Analisador de circuitos etetricos PA028D 

STATGRAF- Idem aoPA02lF PA021D 

• UTILITARIOS EM FITA 

VD0S • Simula o sistema operacional de disco em fita PU013F 

FAST TAPE - Dobra a velocidade de leitura e gravagio para cassete PU014F 
COLOR KIT- Ferramenta muito potente para trabalho com a memona. Acrescenia 
mais 30 lungbes ao Color. PU019F 

• UTILITARIOS EM DISCO 

ADOS • Sistema de DOS. 0 mais utilizado atualmente. Cria novas lungbes PU001D 
C BASIC COMPILER • 0 melhor compiiador ate o momenta Compila tudo E003D 
COLOR KIT - Idem PU019F PU019D 

VIP DISK ZAP • Altera todo o conteudo de um disco PU020D 

WHERE IS IT? • Gerenciador de diretbnos. Autoexpiicativo PU018D 

D«M|o r»cebef o(sl MguinWS) pfoor»m«<»). pelcvsi qu*KI») a quantla de Cft 



FVwa tal. astoo aroiando I ) cheque ( J Vale f*»tal 0 MICROMAQ UQA. 
8ua Sete de Selembio, 92 - Lj. 106 - CEP 20060 • Rio de Janeiro - RJ 
Deeoesas de coneto Incluldas. 



ATENQAO: So serao aceitos os pedidos com postagem ate 31/01/86. 





zx81 zx81 zx81 zx8 



Thunderbird 



Gilson Roberto Viana 



Thunderbird i um programs animado, baseado numa bata- 
lha aerea onde voce tem, como ardua tarefa, a missSo de pilo- 
tar um aviao de bombardeio por uma regi§o montanhosa e infes- 
tada de misseis antiaereos e ca 9 as inimigos. Cada projetil ini- 
migo abatido por um tiro ou uma bomba aumentara sua pon- 
tua^ao em 10 pontos. 

Cada vez que voce colidir com um obstaculo (montanha, 
missel ou ca?a), perdera uma nave e o jogo s6 se reiniciara 
quando for pressionada a tecla NEWLINE. 0 jogo acaba quan- 
do voce perder suas tres naves. 

A cada reinicio de partida, o leitor pode modificar a veloci- 
dade de acordo com o nivel escolhido, que pode ser lento 
(1), m^dio (2) e rapido (3). Entretanto, se voce estiver reali- 
zando uma compet^io, 6 aconselhavel manter o mesmo nivel, 
para que todos os jogadores pilotem com o mesmo grau de di- 
ficuldade. 

Caso voce consiga quebrar o recorde antigo, terd o privild- 
gio de escrever seu nome no quadro dos campeOes. 0 nome 
pode ter, no maximo, sete letras e, se for maior, deve ser com- 
pletado com pontos. 

Os controles podem ser usados simultaneamente. SSo eles: 



1) Digite a listagem 1; 

2) Digite GOTO 100 e NEWLINE; 

3) ^ Quando for pedido enderego inicial, digite 16514 e NEWLI- 

4) Digite os cddigos em linguagem de m3quina da listagem 2 e, 
quando acabar digite 

51 Quando, novamente for pedido enderego inicial, digite 30720 

e NEWLINE; 

6) Digite os cbdigos em linguagem de m^quina da listagem 3 e, 
quando terminar, digite "XX"; 

7) Apague (delete) as linhas de 100 at6 210; 

8) Finalmente, se tudo estiver correto, prepare a fita para gravar 
e digite RUN e NEWLINE. 

Figura 1 

6 - desce; 7 - sobe; 9 - dispara bombas (mdximo de tres 
bombas) e 0 - dispara tiros (maximo de cinco tiros). 

Veja, na figura 1, como voce deve proceder na digitaijSo do 
programs . 

Gilson Roberto Viana 6 estudante do Curso de Engenharia E!6trica. na 
UFPr, e Programador autodidata M dois anos. 




REPRESENTANTES AUTDRIZADOS 

Hara sua maior comodidade, a ATI Editora Ltda. coloca k sua disposigdo 
os seguintes enderegos de seus representantes autorizados 

BELO HORIZONTE RIO DE JANEIRO SAO PAULO 

S? • Andf3de AT ' Edi, ° ra L,da Rua 0,lveira *■«. 1 53 

Av Pres Wi,son - 165 • gr. 1210 Jard.m Paulista 
_ CEP 20030 • Tel : (021) 262-6306 CEP 01433 - Tel : (01 1 ) 853-3574 

Uhm 



—.VMicro 

Sistemas 

PORTO ALEGRE 

Com Rep. Odilon Ltda 

Rua Vol. da P6tria. 323 * Cj. 309 

CEP 90000 - Tel (0512) 24-8200 R 309 
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85 


79 


AF 


31312 


FE 


03 


20 


03 


12 


18 


EC 


2B 


31632 


01 


20 


00 


C5 


ED 


B0 


Cl 


13 


31000 


DB 


FE 


CB 


4F 


C0 


21 


81 


78 


31320 


7E 


FE 


00 


C2 


13 


7A 


36 


13 


31640 


ED 


B0 


EB 


23 


3E 


03 


CD 


7A 


31008 


7E 


FE 


03 


C8 


34 


2A 


82 


78 


31328 


13 


23 


C3 


9C 


7A 


2A 


84 


78 


31648 


7B 


3E 


11 


01 


IF 


00 


36 


80 


31016 


23 


11 


21 


00 


19 


3E 


87 


BE 


31336 


23 


11 


87 


78 


01 


21 


00 


E5 


31656 


09 


36 


80 


23 


23 


3D 


20 


F 6 


31024 


CA 


8C 


79 


C3 


4C 


79 


2A 


82 


31344 


3E 


0C 


36 


00 


09 


3D 


20 


FA 


31664 


3E 


8A 


CD 


7A 


7B 


EB 


01 


20 


31032 


78 


23 


11 


21 


00 


19 


7E 


FE 


31352 


El 


23 


7E 


FE 


80 


CA 


9F 


7A 


31672 


00 


C5 


ED 


B0 


Cl 


13 


ED 


B0 


31040 


8A 


C8 


FE 


87 


20 


F7 


36 


00 


31360 


E5 


7E 


FE 


8A 


20 


03 


El 


18 


31680 


EB 


23 


36 


82 


23 


36 


83 


23 


31048 


19 


BE 


28 


FC 


97 


BE 


20 


03 


31368 


F 0 


FE 


00 


28 


0F 


FE 


08 


CA 


31688 


36 


81 


06 


ID 


23 


36 


80 


10 


31056 


36 


87 


C9 


CB 


46 


28 


04 


77 


31376 


D0 


79 


FE 


2D 


CA 


F3 


79 


FE 


31696 


FB 


CD 


F7 


7B 


CD 


4B 


7B 


FE 


31064 


CD 


98 


78 


C3 


8C 


79 


2A 


84 


31384 


13 


CA 


3C 


7A 


09 


18 


E2 


CD 


31704 


76 


20 


F9 


CD 


64 


7B 


21 


80 


31072 


78 


23 


7E 


FE 


8A 


CB 


FE 


16 


31392 


99 


79 


CD 


5E 


79 


CD 


36 


79 


31712 


78 


97 


77 


23 


77 


CD 


AA 


7A 


31080 


20 


F7 


36 


00 


23 


BE 


28 


FC 


31400 


18 


11 


2A 


0C 


40 


11 


64 


00 


31720 


2 A 


0C 


40 


11 


D8 


02 


19 


7 E 


31088 


97 


BE 


20 


04 


36 


16 


18 


E9 


31408 


19 


22 


84 


78 


11 


07 


00 


19 


31728 


FE 


ID 


28 


47 


35 


18 


DD 


CD 


31096 


CD 


92 


79 


CB 


46 


28 


E2 


77 


31416 


97 


18 


27 


2A 


82 


78 


E5 


Dl 


31736 


64 


7B 


2A 


0C 


40 


01 


0E 


01 


31104 


CD 


98 


78 


18 


DC 


FE 


16 


28 


31424 


01 


21 


00 


AF 


DB 


FE 


CB 


5F 


31744 


09 


1 1 


2D 


7C 


EB 


05 


ED 


B0 


31112 


09 


FE 


87 


C0 


E5 


21 


81 


78 


31432 


28 


06 


CB 


67 


20 


20 


09 


09 


31752 


21 


26 


7C 


CD 


4B 


7B 


01 


03 


31120 


18 


04 


E5 


21 


80 


78 


35 


El 


31440 


ED 


42 


7E 


FE 


00 


28 


07 


FE 


31760 


00 


ED 


B 1 


20 


F3 


CB 


11 


09 


31128 


C9 


21 


86 


78 


34 


7E 


21 


00 


31448 


03 


28 


13 


C3 


D5 


78 


97 


12 


31768 


4E 


21 


FF 


7A 


71 


EB 


2B 


BE 


31136 


09 


23 


3D 


20 


FC 


23 


3E 


55 


31456 


IB 


12 


36 


82 


2B 


BE 


20 


F3 


31776 


20 


FC 


C6 


80 


77 


C9 


ID 


IE 


31144 


B6 


4F 


3E 


0E 


A6 


CB 


5F 


28 


31464 


36 


86 


23 


22 


82 


78 


CD 


F3 


31784 


IF 


00 


00 


09 


0F 


33 


2E 


3B 


31152 


F4 


2A 


0C 


40 


11 


92 


02 


19 


31472 


78 


CD 


17 


79 


CD 


B7 


78 


CD 


31792 


2A 


31 


0E 


00 


ID 


00 


00 


IE 


31160 


11 


21 


00 


36 


08 


ED 


52 


3D 


31480 


FD 


7A 


C3 


65 


7A 


01 


01 


0F 


31800 


00 


00 


IF 


E5 


CD 


13 


7B 


El 


31168 


20 


F9 


79 


FE 


7F 


28 


06 


FE 


31488 


0B 


79 


B0 


20 


FB 


C9 


2A 


0C 


31808 


36 


IF 


CD 


06 


7B 


11 


73 


78 


31176 


FF 


C0 


36 


13 


C9 


36 


2D 


C9 


31496 


40 


11 


DA 


02 


19 


EB 


21 


10 


31816 


EB 


01 


0C 


00 


ED 


80 


C3 


Dl 


31184 


23 


BE 


2B 


28 


02 


36 


00 


2B 


31504 


00 


19 


C9 


CD 


06 


7B 


13 


23 


31824 


7B 


90 


00 


00 


00 


00 






31192 


BE 


20 


09 


23 


23 


BE 


CA 


78 


31512 


1A 


FE 


00 


C8 


BE 


28 


F7 


96 




















31200 


7A 


2B 


18 


0C 


7E 


FE 


82 


CA 


31520 


D0 


CD 


06 


7B 


01 


06 


00 


ED 





















Listagem 3 




BEST SELLERS: 



LANQAMENTOS 
JANEIRO/86 i 



1 MUMPS - Lobo, M. C. - Cr$ 49.000 

2 InteligAncia Artificial em BASIC — James, 
M. - Cr$ 90.000 

3 VISITREND/VISIPLOT: Guia do Usukrio 
Brasileiro- Christmann, R. U. -Cr$ 54.000 

4 LOGO: Uma Introdugao — Goodyear, P. 
M. - Cr$ 82.000 

5 Linguagem de Program agio para Micros — 
Marshall, G. — Cr$ 72.000 

6 Pascal para Micros - James, M. - Cr$ 68.000 

7 Ticnica de Gerenciamento de Arquivos — 
Claybrook, B. G. - Cr$ 125.000 



APPLE 

8 Como Programar seu APPLE — Cook, R. e 
Hartnell, T. - Cr$ 41.000 

9 Jogos Gr&ficos para o APPLE — Coletta, 
P. - Cr$ 82.000 

10 Manual APPLE em BASIC — Kantaris, 
N. - Cr$ 52.000 

BASIC 

11 BASIC para AplicagSes Comerciais — 
Hergert. D. - Cr$ 55.000 

12 BASIC com Estilo — Nagin, P. e Ledgard, H. 
F. - Cr$ 48.000 

13 BASIC Bisico — Pereira F9, J. C. — (5? edi- 
gao revisada e ampliada) — Cr$ 64.000 

LINGUAGEM DE MAQUINA 

14 Alim do BASIC - Linguagem ASSEMBLY 
para a Lm ha SINCLAIR — Santos, N. — 
Cr $ 60.000 



15 BASIC Ripido: Alim do BASIC TRS-80 - 
Gratzer, E. A. e Gratzer, T. G. - Cr$ 99.000 

16 Manual do Microprocatsador Z-80 - Barden 
Jr., W. - Crf 109.000 

17 Programagfo em ASSEMBLER a Linguagem 
de Miquina (2*edig§o) — Alexander. D. 
C. - Cr$ 68.000 

SINCLAIR 

19 Desafio: Os Mais Excitantes Jogos em 
BASIC - Botelho, A. J. L - Cr$ 87.000 

18 Primeiros Passos com o sau SINCLAIR 
(TKs) - Hughes, C. - Cr$ 49.000 

20 Programas Administratlvos am BASIC SIN- 
CLAIR - Karsten, L. - Cr$ 57.000 

TRS-80 

21 30 Programas em BASIC para Computa do- 
res Pessoais - Chance, D. — Cr$ 92.000 

22 1001 Aplicagdas para sau Computa dor Pet- 
soal - Sawusch, M. - Cr$ 86.000 



ESTA £ ARENAS UMA SELECAO DE NOSSOS TltULOS. PARA MAIORES INFORMAQOES SOLICITE NOSSO CATALOGO. 



0 Editors Campus 

> Rua Barao de Itapagipe 55 - 20261 - RJ - F 



RJ - Tel.: (021) 284 8443 



Q I All DESEJO RECEBER AS PUBLICACOES 
O I IYI REFERENTES AOS NUMEROS ASSINALADOS: 

1 2 3 4 5 6 7 8 I 9 I 10 I 11 

12 13 14 15 16 17 18 19 20 21 22 



Nome: 

Enderego: 

Cidade: CEP: 



r! Mediante envio de cheque nominal A Edi- 
tora Campus Ltda. (0 porta A por nossa 
conta e sua an co men da chega mais r&pido.) 

Cheque n? 

Banco 

□ Mediante page men to contra recebimento 
dos livros pelo reembolso postal, acrescido 
de despesas posts is. 

Importante: Pregos validos at6 28.02.86. Ap6s 
esta data informer se conoorda com o envio do , 
pedido com raajuste. I 

□ SIM □ NAO h 



NOSSAS PUBLICACOES ESTAO A VENDA TAMBEM NAS BOAS LIVRARIAS 











trs-80 trs-80 trs-80 trs-8 




Jose Marcelo de Freitas Vi lei a 



Fuga cosmica 



O programa "FUGA/BAS” e um jogo ro- 
dado cm BASIC, mas que possui uma pequena 
rotina cm linguagem dc maquina, nas li- 
nhas 20 e 21. Esta rotina ativa a unidade 
sonora do equipamento, atravcs da instru- 
$ao J = USR(X); sendo J uma variavel muda e 
X a freqiiencia e a dura^ao do som desejado. 

O programa foi desenvolvido para os 
rniaos que tSm 48 Kb de memoria, compati - - 
veis com os modclos I e III do TRS-80 (quer 
possuam ou n3o unidadesde disco). 

A listagem apresentam-se dc forma exten- 
siva porque no proprama estao contidas mui- 
tas sub-rot inas graficas, alcm da prcsen^a 
de sons, rui'dos e trechosde musicas. 

O JOGO 

O jogo consistc numa fuga, na qua! o joga- 
dor c um gucrreiro espacial que precisa sair o 
mais rapido possi'vel (20 minutos e o tempo 
maximo) de uma Zona Proibida (ZP), que e 



N — Ir para o norte 
S — Ir para o sul 
L — Ir para o leste 
O — Ir para o oeste 
M — Ver o mapa (caso vocfi o possua) 

T — Ver o tempo que resta 
E — Entrar na passagem 
R — Ver quantos diamantes restam 

Figura 1 

dividida entre Zona Proibida 1 eZona Proibida 
2. O jogador tera varios comandos, conforme 
mostra a figura 1. 

O jogador precisa ter cuidado com os ci- 
clones espaciais, com o tempo e nunca perder 
todos os diamantes dc Orion, pois eles sao o 
combusti'vel da nave; perdendo-os, acaba-se o 
jogo. Cada lugar da Zona Proibida & chamado 
quadrante, isto e, uma especie de sala no 
espa^o sideral. 

Quando se acaba o jogo (tenha o jogador 



ganho ou nao), o computador faz uma conta 
com o numero de jogadas e os diamantes 
conseguidos, dando o seu escore. 

Quando o jogador estiver voando com sua 
nave na ZP, a tela do equipamento ira se 
subdividir cm tres partes: na parte dc baixo, 
esta o menu; no canto superior esquerdo, o 
computador de bordo; e no canto superior 
direito, o visor da nave. 

Durante a fuga cosmica, o jogador deve sc 
preocupar em achar o Mapa e a Estrcla do 
Poder, pois possibilitarao surpresas cspeciais . 

Agora, digite o programa com cuida- 
do e aten^ao; ao acabar, digite RUN e tecle 
ENTER que o computador dira tudo. Boa 
Sortel 



Jos# Marcelo de Freitas Vilela tem 14 anos e 
cursa a oitava s6rie no Co!6gio Sao Bento, no 
Rio de Janeiro. Possui um CP 500 e aprendeu 
a programar em BASIC atrav6s de livros e re- 
vistas. 



0 CLEAR.,'® SPOKE 164 19. 95 

1 ' 

2 ‘ FUGA COSMICA P/COMP. TRS-8® MOD. I e III 

3 ' DE JOSE 'MARCELO DE FREITAS VILELA 

4 * Rio de Jane Iro / 1985 / TELEF. i <®2t >27® 438® 

5 ' 

6 CLSiF0RAA-1T0229sF0R8B-1T02®iNEXTB8sREADCiREADLsSETTC.L> INEXTAA 

7 DATA 1®. 18. 11. 18.1®. 17. 11. 17, 10.16. 11. 16.1®. 15. 11. 15.1®. 14.11.14,1®. 13 
. 11. 13, 1®. 12. 11. 12. 19.lt. 11, 11. 1®,1®. 11,1®, 12.9,13,9.14,9,15.8.16.8,17.8 
,10.8,19.9.20.9,12,14,13.14.14.14,15.14 

8 DATA 2®. 14. 2®. 15. 2®. 16. 2®. 17, 21. 18. 22, 18, 23. 18. 24. 18, 25. 10. 26. 17. 26. 16 
,26,15.26. 14 

9 DATA 35.14.34,14.33,14.32.1 , 31 . 14, 3®. 15. 3® , 16, 3®. 17 , 31 . 18, 32 . 18. 33, 18 
,34. 18, 35. 18. 36, 17. 36, 16. 36, 15, 36. 18. 36, 19. 36, 2®. 36, 21. 35. 22, 34. 22, 33. 22 
.32, 22, 31. 22, 3®. 21 

1® DATA 45, 14. 44. 14. 43. 14. 42, 14. 4 1.1 4. 4®, 15. 4®. 16. 4®. 17, 41. 18, 42. 18, 43.1 
8.44.18.45,18.46.17.46,16.46.15,46.18.47.18 

11 DATA 53. 38. 52, 38. 52, 39, 51, 39. 5®. 39. 49. 39. 48, 39. 47, 39, 46. 39, 45. 39, 45. 3 
8.44.38.44.37.43,37.44,36,43,36.44.35,43.35.44.34.43.34,43,33,44,33,43,3 
2. 44, 32. 43. 31. 44. 31, 43. 3®, 44, 3®. 44, 29, 45. 29. 45. 28, 46, 28. 47, 20, 48. 28. 49. 2 
8.59.28.51 .28.52. 2B 

12 DATA 52.29,53.29,61.34.60.34.59.34,58.34.57,34.56.35.56.36,56.37,56.3 
8. 57, 39. 5B. 39. 59, 39, 6®. 39, 61. 39, 62. 38, 62. 37. 62. 36, 62. 35, 60, 33, 61. 32 

14 DATA 70. 34. 69. 34. 68. 34. 67. 34. 66, 34. 65. 35, 66, 36, 67. 36. 68, 36. 69. 36. 7®. 3 
6.71,37,71.38.70,39.69,39,68.39.67,39.66,39 

15 DATA 74,39.74.38.74.37,74.36,74.35,75,34.76,34,77,34.78,35,78,36.78,3 
7, 78. 38. 78, 39, 79, 34, 8®, 34. B1 .34,82.35,82.36.02,37,82.30,82,39 

16 DATA 85. 39. 85. 38. 85, 37, 85. 36, 85, 35, 85. 33, 94, 35. 93, 34. 92, 34, 9 1.34. 9®. 3 
4 . 89 , 34 . 88 . 35 . 88 , 36 , 88 . 37 , 88 , 38 . 89 , 39 . 9® , 39 , 9 1 . 39 , 92 . 39 . 93 . 39 , 94 . 38 

17 DATA 1«2. 34.161 .34. 1««. 34,99. 34.98, 34,97, 35.97, 36,97. 37.97, 38,98. 39. 9 
9. 39, 1 »0. 39. I ® 1. 39. 1*2. 39. 1®3. 38, 103, 37, 163. 36, 163. 35. 1*3.39,1 04. 39 

18 FORA-tTO29sFORB»lTO30sNEXTBsREADCsPOKE16277*A.CsNEXTA 

19 DATA 60, 1®1.», 74. 11 1,1 15, 161. 39, 0,77, 97. 11 4, 99.1® 1,1 08, 11 1.0.1 *0. 1®1. 
®. 7®, 46, ®, 86, 1®5. 108.1® 1,198, 97 

2® Z*-STR1NGS<24,32> sv-VARPTRTZ»> SL-PEEKTV*1 ) »M»PEEK < V»2 > :E-L*256-Ms IFE > 
32767 THEN E-E-65536»FORI-ETOE»23iREADX«POKEI,XiNEXTI«IFPEEK( 16396 >-®THE 
NP0KE 1 6526, L SPOKE 16527. MsELSE DEFUSR0-E 

21 DATA 2®5. 127. 10.62, 1,14, 0.69. 47. 23®. 3, 21 1.255, 13. 4®, 4. 16, 247. 24, 243, 3 
7,32.242 , 291 

22 F0RA-1T081IREAD C t X-USR <C ) SNEXTA 

25 DATA 18046, 10604 . 10334, 1634®. 1*352.25663 , 18064 . 10334 . 1®34®. 1®352. 1798 
3, 18004. 1 1568. 11571. 11568. 12857. 25642, 18046. 18®»4. 19334.1*34®. 16352, 2566 
3 . 25684 , 10334 . 10340 . 1 0352 

26 DATA 25663 . 18004 , 1 9334 , 1034® . 10334 , 1 1632 . 3®8®4 , 1 034® , 8243 . 8249 . 8255 . 8 
259 , 8267 , 8259 . 0255 . 8259 , 8267 . 1 1 587 , 1 6324 , 1 2875 , 8243 , 8249 . 8255 . 17962 ,1797 
7,1 0324. 1®315. 8243. 8249, 8255. 0259.8267,8259.8255. 8259. 1®315, 11587. 8276, 8 
276 . 8276 . 1 1583 . 8262 . 8271 

27 DATA 8276.8286. 1®346.1®352. l®366. 1*324 . 2644 , 8276. 8276, 16324.126 
1®0 CLS I POKE 16921. ® : P0KE1692® . » s P0KE1691 9.0 

17® FOR Z2- 1 T 090® * NEXT Z2 
18® CLS8DIMA<9,9,2> 

185 PRINTCHRt<23> 

19® PRINT896®. "0 laperio Galactlco fol atacado" 

191 GOSUB20®OOsPRINT"por uaa clvlllzacao allenlgena." 

192 GOSUB2®06®sPRINT“E voce, ua gutrrtlro capaclal," 

193 GOSUB20«O0sPRINT"fol atingido an coabate. A de-” 

194 GOSU82®06®sPRINT"r I va, fol arrebatado coa vlolen-"» 

195 GOSUB2600® sPR INT”c I a por ua planeta de grande ” 

196 GOSUB2®0O®sPRINT”gravldade e augado para a ZONA "SG0SUB2®6®®s 

PR l NT "PROIBIDA. Voce e*ta' perdldo e“ sG0SUB2®ee®s P 

R INT”prec * aa aalr rapldaaente deate " 

197 UOSUB2®»O0sPR INT” lugar deaonlaco. Inabltado e" s GOSUB2600® = 

PRINT"vaz lo. . .ou aaala parece..." 

2®® PRINT 
21 ® ' 

22® PRINT 
23® RANDOM 



24® MA-®ICA-*SQ-1®®0SH1-1 SK-0 
25® PRINT"Oual e' o aeu noae "i 
26® INPUTAt 

276 CLS 

277 PRINTsPRINT SPRINT” VOCE PRECISA SAIR DA ZONA PROIBIDA" 

278 PRINT"EM MENOS DE 2® MINUTOS" 

28® PRINT *PRINT"VOCE CARREGA 1««® DIAMANTES DE ORION" 

285 PRINT"PARA 0 A6ASTEC1MENT0 DA NAVE” 

29® PRINT s PR I NT A® I ” . . . VOCE ESTA' A CAMINMO” 

3®® F0RZ2«1T012»®sNEXTZ2 
31® G0SUB48® 

32® CLS 

33® PRINT"VOCE CHEGOU NA . . . ." 

34® PRINT 

35® PRINT”ZONA PROIBIDA 2“ 

36® PRINT 

37® PRINT"VOCE ENCONTRARA ' VERMES." 

38® PRINT"LADROES. E OIAMANTES DE ORION . . . MAS CUIDADO" 

39® PRINT'ONDE PASSA " 

400 PR 1NT"CICL0NES ESPACIAIS PODEM SER FATAIS . . ." 

41® F0RAB-IT02®*® 

42® NEXTAB 
43® G0T0101® 

44® F0RZ2-34T0674STEP64 SPR INT3Z2 . CHRST 191 ) I sNEXTZ2sF0RZ2-63107*3STEP64sP 
RINT8Z2.CHR4T 191 > i SNEXTZ2SFORZ2-34T063BPR INT8Z2.CHRST 191 > ) SNEXTZ2SFORZ2- 
64®T07®3SPRINTaZ2.CHR»(l91 >j SNEXTZ2 
47® RETURN 
48® ’ 

49® F0RX-1T08 
50® FOR Yn 1 T 08 
51® F0RZ-1T02 
52® A<X,Y,Z>-RND<7> 

53® NEXTZ 
54® NEXTY 
550 NEXTX 
569 ’CICLONES 
57® H-RN0T3) 

58® F0RA-1T02 
59® F0RN-1T0H 
6»® X-RNDTB) 

61® Y-RNDT8) 

620 ATX.Y.A>-8 
630 NEXTN 
640 NEXTA 
650 'CAHINHOS 
66® S-RND(4)+2 
67® F0RA-1T02 
680 F0RN-1T0S 
690 X-RND ( 8 ) 

706 Y-RNDT81 
71® A(X.Y.A) *9 
726 NEXTN 
73® NEXTA 
74® RETURN 
756 'PASSAGE NS 
76® L1*L1-1 
77® CLSSG0SUB440 

780 PRINT 3® . "Voce entra na PASSAGEM~| 

79® PR INT364 , "A Eatrela do Poder abre o" s *PR INT3128, "caa I nho "» 

84® GOSU8440SGOSUBB00® 

81® IFL1-®THEN07® 

82® HA-®SK=0EK4-RND<4>+4 
83® CB-CA*K4 

84® PRINT3192,"Voce fol Jogado para ..."i 

845 PRINT3256,"a ZONA PROIBIDA l"r 

846 G0SUB3500® 

850 FORZ2*1TO1®00SNEXTZ2 



« 






« 



86® G0T0107O 

87® PRINT3136.".Vocc encontrou. . ."i 

88® PR INT3192, ". . . a aalda da ZONA PROIBIDA. "i 

900 PRINT3256."Voce teralnou coa "jOi 

905 PR INT3320. "D I aaant ea de Or Ion. "i 

906 GOSUB 350OO 
910 G0SUB936 
92® G0T01910 

93® GG>G*!00sREM ESCORE 
94® R- I NT < ( GGaCA-7 0®0= 1 ) /Ml ) 

95® IFPEEK ( 16920) >-2®TMENR-«ELSEG0T096® 

96® PRINT3704."0 eacore do jogo fol s "»Ri 
97® IFGC® OR PEEKS 16920) > -2® THEN430® 

980 PR I NT3384. "Voce prcclaou de "iHlt" Jogadaa") 

985 PRINT3448."para aalr da ZONA PROIBIDA e "l 
99® PR I NT3S12, "conaegu i u Diaaantea de ~|CA| 

991 PR INT3576 , "Veraea do Pavor."> 

1000 RETURN 
101* ’ 

1020 C=RND<8> 

1030 D-RNDT 8) 

1 040 AS C,D.2)«1 
l®5® Ll-2 
1 060 K4-RND<4>»4 
107® ’ 

1 ®80 CLS 

1 ®9® A-A<C.0.L1> 

11*0 0=0-1 

1110 ON A GOSUB 2220. 228®. 2340. 2340. 2390. 2700, 275®. 2B®0. 308® 

112 ® ' 

1130 IF0S=*THENIB2® 

114® PRINF3768."E AGORA, "sA5|~ ?"> 

116® PRINT3798. "SNIORTE (L)ESTE S8)UL T01ESTF") 

1176 PR INT3B61 , " ( E ) NTRAR SM)APA (R)ESTO ST)EMP0”» 

1171 X-USR (256«3®*43> 

119® Ml -Ml ♦ 1 s IFK -0ANDM1 )- 1 40/ LI THEN42 1 6 
1195 M1S-INKEYS 
1 2®0 IFM1*="N"THEN129® 

1210 IFM1 %-"L"THENl 34® 

122® IFM15-"S"THEN139® 

1230 IFM1»-"0"THEN144® 

124® IFM 1 5 -”E" THEN 1 490 
1250 IFM1S="M"THEN161* 

1260 IFM1*-"R'THEN1670 

127® IF Ml S-~T"THEN2 1000 SPRINT 

1275 IF PEEK S 16920) >-20THEN GOTO2200® 

128® G0T01195 

129® 'NORTE 

130® IFA-7TMEN171® 

131® IFSO-1 )-0TMEN1980 
1320 0-0- 1 
133® GOTO107® 

1340 'LESTE 

135® 1FA-6THEN177® 

1360 IF SC+1 1-9THEN203® 

137® C-C*l 
138® GOTO107® 

139® 'SUL 

1460 IFA-7THEN1710 
141® IF TDM >-9THEN205» 

1420 D-D»l 
143® GOTO107* 

144® 'OESTE 
145® IFA-6THEM1776 
1460 IFSC-D-OTMEN207O 
147* C-C-l 
1480 G0T01 07® 

149® • 

15«0 IF AS 19THEN158® 

151® IFK-ITHEN75® 

1515 CLS 

1520 GOSUB 440 s GOSUB 1 6000 

153® PR INT364 , "Voce nao pode entrar”) 

1540 PR INT312B, "po i a nao cata* coa a") 

1541 PRINT3192. "Eatrela do Poder") 

1570 GO Toil 20 

1580 CLS s GOSUB 440s G0SU8 10500s PR INT364 , "Voce nao eata* na paaaagea") 
16®0 GOTO1120 
161® CLS) ’MAPA 
1620 IFMA-1 THEN209® 

1630 GOSUB 440 sGOSUB 1 050® s PR INT364 , "Voce nao eata* coa o aapa") 

165® GOSUB440 
166® G0T01120 
1670 ‘DIAMANTES DE LAZAR 

1680 CLSsGOSUB44®)GOSUB9O0OspRINT364,"Reatao-lhe "iGi 
1696 PRINT3128."Dl aaantea de Orion") 

1700 G0T01 12® 

171® 'TURBILHAO LESTE-OESTE 
1720 ' 

1730 CLS sGOSUB 4 4®s GOSUB 600® s PR 1NT364 . "Voce eata’ nua Turbilhao'i 

1731 PR INT8I 28 , "1 eat e-oeat e e ao ’ pode Ir") 

174® PRlNT8192.~para o Leate ou para o Oeatc.") 

175® ' 

1760 GOTOH2® 

177® 'TURBILHAO NORTE-SUL 
178® ’ 

179® CLSsGOSU8440sGOSU860«0s PR 1NT264 , "Voce eata' nua Turbllhao") 

1791 PR I NT 2 128 , "nor t e-au 1 e ao ’ pode Ir") 

1800 PR INT81 92, "par a o Norte ou para o Sul.") 

181® G0T01756 

1820 'SEM DIAMANTES 

183® FORZ2-1TO20O0SNEXTZ2 

1840 CLSSGOSUB440IGOSUB9O0® 

1850 PRINTS®, "Voce perdeu todoa oa aeua") 

1851 PR INT364 , "0 i aaant ca de Orion...") 

186® PRINT8128,"e fol tncapaz de aalr da") 

1870 PRINT8192,"Z0NA PROIBIDA.") 

1890 PRINT3320."Me Ihor aorte da proxlai vez.") 

1895 GOSUB 4000® 

190® GOSUB930 
191® ' 

192® PR INT8834. "Quer tentar de novo ?") 

1930 PRINT8897. "Digite V-SIM '0' -NAO") 

1931 PR INT3960 . " ") 

194® INPUTAA 

195® IFAAS )1THEN197® 

196® CLSsPOKEl 6921.® SPOKE 1692®.* s P0KE16919. 08 GOTO 210 
1976 CLSsEND 

1980 CLS SGOSUB 44® SGOSU66500) PRINTS®, "Voce eata' no Caapo Magnet Ico") 
199® PR 1NT364 , "Nor t e e nao pode ul t r apaaaa-lo" ) 

291® PR INT3192 • "Tent e outra dlrecao.") 

202® G0T01 120 



203* CLS s GOSUB 4 4® sGOSUB 650® s PR INT3® , "Voce eata' no Caapo Magnet. co") 

2*4® PRINT364. "Leate e nao pode ul t r apaaaa-1 o" > )GOT02®10 

2050 CLS s G0SUB44® s GOSUB 650® s PR INT30 . "Voce eata' no Caapo Magnet Ico") 

2060 PR INT364 . "Sul e nao pode ul tr apaaaa-1 o" > SGOTO2010 

207® CLS8G0SUB4 40 SGOSU86500SPR INT30 . "Voce eata' no Caapo Magnet Ico") 

2®B® PR1NT364 . "Oeat e e nao pode u 1 t r apaaaa- lo" > SGOTO201® 

2*90 'MAPEANDO 
2100 CLS 
2105 GOSUB 4 40 

211® PR I NT 30 , "MAPA DA ZONA PROIBIDA ")Lls 

2111 PR INT312B . "V - VERME DO PAVOR") 

2112 PR INT3192. "0 - OUADR ANTE VAZIO") 

2113 PRINT3256 , "7 • UM L ADR AO OU UM CICLONE") 

2114 PR INT3320 . "PA - PASSAGEM PARA FORA DA Z.P.") 

2115 PR INT33B4 , "NS - TURBILHAO NORTE-SUL") 

2116 PR1NT3448. "LO • TURBILHAO LESTE-OESTE") 

2117 PR INT3512, "P 1 - SUA LOCALIZACAO NA Z.P.") 

212® PRINT3165,"") 

2130 FOR0-1TO8 
214® F0RN-1T08 

215* IFC-N AND 0-0 THEN PRIN1"Pl ";SGOTO2180 
2160 S1-A(N,0,L1 ) 

2170 ON SI GOSUB 3120. 3120 . 31 40. 31 40 . j) 60 . 3180 . 3200 . 3220. 3230 
2180 NEXTN 

2190 PR I NT31 65464*0, "") 

229® NEXT® 

221® G0T01 120 

2220 '0UADRANTE VAZIO 

223* GOSUB 440: GOSUB 1«5®« 

2240 PR INT3®, "Voce eata* nua quadrante") 

2250 PRINT364,". . . frio. eacuro e vazio.") 

227® RETURN 

228® 'QUADRANTE VAZIO 

229® GOSUB 4 40 s GOSUB 1 ®5®0 

2300 PR INT3®, "Voce eata* nua quadrante") 

231® PRINT364,". . , uaido, nebuloao e vazio.") 

233® RETURN 
234® CLS SGOSUB 4 16® 

235® M4=RND<4> 

2369 ON M4 GOSUB 325® . 3380 . 3550 . 3680 
238* RETURN 

2390 CLS SGOSUB 44® SGOSUB 7000 s PR I NT 30 . "Ha ' ua ladrao de Centauro.") 

240® ATC.D.Ll >-2 

2410 FOR Z2- 1 T 0500 s NE XTZ2 

242® G4=RND( 350/Ll ) 

2430 Y-RND(8> 

244® IFY< -3THEN261® 

2460 PR INT912B. "E I e o aurprernde. . .") 

24B® PR INT2192, "E con deatreza.": 

2490 PR INT3256, "r ouba-1 he ")G4i" Diaaantea.") 

250® G-G-G4 

2519 ’PROCURA DO MAPA 

252® IFMA-1 THEN RETURN 

253® MA-RNDI 4 > > 1FHA< -2THENMA- i 

254® IFMA-1 THEN257® 

255® RETURN 
256® ' 

257® PRINT3320,"Voce vaaculha o quadrante e") 

258® FORZ2-1TO500SNEXTZ2 

2590 PR INT9384 , "acha ua re clplcnte") 

2595 PR IN18448."coa ua aapa da ZONA PROIBIDA") 

2596 PR 1NT8512, "fe I t o por algua Roblnaon ") 

2597 PRINT8576,"Cruaoe Eapaclal.") 

259 B GOSUB 3000® 

26®0 RETURN 

2610 PR INTB12B, "Voce aurpeende o ladrao. Na") 

2630 PRINT8192,"fuga ele dclxa cair ">G4|" D i a-" ) 

264® PRINT3256."aantea. Voce oa recolhe.") SG-G+G4 

266* IFMA-1 THENRETURN 

26 70 MA-RND! 4 > s IF MAT -2THENMA = 1 

268® IFMA-1 THEN2570 

2690 RETURN 

2700 ' 

2710 GOSUB 4 40 sGOSUB 6000 

2720 GOSUB4350SPR INT3128 , "e entra nua Turbllhao " ) sPR INT8192. "nor t e-au I " 
I 

2730 GOSUB4330 
274* RETURN 
275* CLS 

2760 GOSUB 44 0 sGOSUB 600® 

277® GOSUB4350SPR INT9128. "e entra nua Turbllhao "i SPR INT81 92 ," leat e-oeat 
e" l 

2780 G05UB433* 

279* RETURN 

28*0 'CICLONE 

28*5 GOSUB 4 40 s GOSUB 75®® 

2810 PR INTS®. "Voce entrou nua C I c lone") SPR INT864 , "Eapac I a I " ) 

282® F OR Z2- IT 050® SNEXTZ2 
2830 TD-RNDT 4 ) 

284® IFTD1-3THEN289® 

285® ' 

286® PR1NT3192. "Maa deu ua Jcito para") 

287® PR INT92S6 ."aalr dele.") 

2880 RETURN 

289® IFL1-2THEN300® 

29®« L1-L1MSK-1 

291® PRINT8128, "Voce fol Jogado par a" i SPR INT8192. "ZONA PROIBIDA 2 ...e") 
292® G-G-500) IFG< OTHENG-0 
293® F0RZ2-1T05®® SNEXTZ2 
294® ' 

2950 PR 1NT8256 , "perdeu auitoa Diaaantea.") 

297® PR INT8384 , "Reat aa- 1 he ">G>" Diaaantea") 

298® PRlNT3448."Haa voce ainda tea aua "> SPR 1NT3512, "Eat r e I a do Poder.") 
2985 GOSUB4®0®0 
2990 RETURN 

300® PR INT3128. "Voce entrou DENTRO do Clclone") 

3616 FORZ2-1TO5®0)NEXTZ2 

3920 PRINT8192,~Maa teve aorte c aua nave") 

3030 PR INT82S6. "nao fol atlngtda aer laacnte") 

3*5* F0RZ2-1 TO500S NEXTZ2 

3660 PRINT8320."Maa na aalda voce percebe ") 

3070 G0T042S0 

3*80 G0SUB440SPRINT8363. STRINGS! 12.191 >) 

3081 F0RZZ-77T0llBiSET<ZZ,6> sNEXTZZ SF0RZZ-6TO261 SETT 1 18, ZZ > SNEXTZZ 

3*82 FOR ZZ-118T077STEP-1I SETTZZ. 26>* NEXTZZSF0RZZ-26T06STEP-lsSET(77,ZZ)s 

NEXTZZ 

3®83 PRINTS*. "Voce eata' entrando") 

3®9® PR INT864 . "nuaa paaaagea") 

3110 RETURN 
3120 PRINT"® ") 

313® RETURN 
314® PR INT"V ") 
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FUGA C6SMICA 



♦CHRS< 165 ) I 

4440 PRINTa353,CHR*(150>i8TRING*(12.128>*CHR*(130>*CHR*(148>t 
667* PRINT9417,CHR*(149)*STRING*(13.12B)*CHR»(t49) ? 

6680 RETURN 

7000 PRINT8173,CHR*(137>*CHRS(174>*CHR*(174>*CHR*(152>»CHR»(129)| 

7010 PR INT3175*43,CHR*( 134 >*CHRS( 179) ♦<:)«»( 134>*CHRS( 134>«CHR»( 142) *CHRS 

(153) 1 

7*20 PRINT8304,CHR*( 137 >*CMR%( 150) ♦CHRS( 129 > » 

7030 PRINTa34S.CHR*(188>*CMRS(t74>48TRINGS(4.131)«-CHR*(171>*CHRt(172>*CH 
RS ( 1 48 ) I 

7040 PRINT9429, CHRf < 191 ) ♦CMR5< 144 ) ♦CHR5< 137 )+CMR3( 144 ) ♦CHR%( 128)-CMRS( 13 
2>»CHR*< 129)*CMR»< 184>*CHR»( 149>| 

7050 PRINT3493,CHR*<131 >*CHR»( 128) *CHR*< 108)*CHR*( 150>+CHR*( 131 ) ♦CHR*< 18 
8>»CHRS< 128>*CHRS( 130>»CHRS( 129) i 

7040 PRINT8338,CHRS( 148 >-*CHRl( 151 >♦ CMRK 128>+CHRS( 128) ♦CHRS( 13 

0>*CHR*(1B9>| _ 

7070 PRINT8421,CMR*(130)«CHR*(131>*CHRS(129>*STRING*(3.128>»CHR*(131>+CH 

Rf ( 131 ) 1 
7080 RETURN 

7500 PRINT3144.CHRt(172)*STRING»(3,140>*CHRS(134)»8TRINGS(3, 140>*CHRS(13 
4>*STR INGS ( 3 , 140) ♦CHR$< 1 34 > *8TR 1NG* < 3, 1 40 > *CHRS( 154) «-8TR INGS( 3. 140 >*CHR» 

(154) *CHRS(154>I 

7510 PRINT8229.CHRS( 139)»CHR*< 134) ♦CHR*< 144 ) *CHR»( 178)*CHR*( 131)*CHRt( 14 
0)»CHR*( 144)*CHR»( 178>*CHR»( 131 )*CHR»( 140) ♦CHR*( 144 ) +CHR*( 178) ♦CHR*< 131) 
♦CHR0( 140) ♦CMR%< 144 ) ♦CMRS( 178>*CHR8< 131 ) ♦CHR0( 140) ♦CHR$( 144 ) *0(30 < 134 > | 

7520 PRINT3294.CMR*<130)»CHR*(172)*CHR*(174)*CHR*(147)*CMR*(137>»CMR0( 14 
0)*CHRS( 174) +CMR0( 147 ) *CMR8( 137 >+CHR0< 140)*CHRS(174) *CHR8< 147)*CHR0< 137) 
♦CHR8<140)*CHR*(174)*CHR*(147>*CHR*<153)«CHR8(129>| 

7330 PRINTB340.CHR*(137)*CHR*( 178)»CHR*< 131 )«CHR*< 140) *CHR»( 144>*CHRS(17 

8 > ♦CHR0< 131 >+CHRS( 140 ) ♦CHR0< 144)-*CHRS(176)*CHR%(131)*CNRS( 140 )-CHRS( 144 > 
♦CHR%( 134) I 

7340 PRINT3423,CHR*<130)»CHR*<147)*CHR*< 153>-CHR*( 140 ) *CHRS( 174 )*CMR8( 14 
7)*CHRS(137>»CHRt(140>*CHR»(174>»CHRl(l47>*CHRS(153)+CHR*(129>» 

7350 PRINTa491,CHR*(139>»CMRt(134>*CHRS(144>»CHR»(17B)«CHRS(131)«CHR»(14 
0)*CHR»(144)*CHR*(134>? 

7340 PR 1NT35S4 . CHRS( 130) ♦CHR0< 172>+CMR0< 174)+CHR0(147 )*CHR%( 153 >*CHR0( 12 
9>1 

7370 PRINT8422,CHRS(137>-CHR*(134>1 
7380 RETURN 

B000 UU*-STRINGS(28.19l> 

8010 PR I NT 399 , UUS : IPRINT341 1 ,UUt? INN-33«HN-411 *00-42 «PP-430"GOSUB80 19 

8011 PRINT3143.UN8i»PRINT3547.UU0i»NN-37«NM-413*OO-40«PP-434iGOSUBB019 

8012 PR XNT3227 , UU$ t iPR INTB4B3. WWSi iNN«39iHH-415iOO-58iPP-434iGOSUBB019 

8013 PR INT3291 .UWSHPR1NT 3419, MUti INN-41 iNH-417iOO-54iPP-432iGOSUB801 

9 

8014 PRINT3333.UU8I IPRINT3355.UWS1 1NN-42IMN-4191OO-54IPP-4301GOSUB8O19 

8015 RETURN 

8019 FOR ZZ- 1 T 030 1 NEXTZZ 

8020 F0RZZ-NNT0MHSTEP44iPRINT3ZZ.CHRS( 191 ) 1 1 NEXTZZ I FOR ZZ“NN«-lTOHN-» 1STEP4 

4iPRINT3ZZ.CHR»(191)|iNEXTZZiF0RZZ-NN»2T0NM»2STEP44iPRINT3ZZ,CHR*(191)|i 

NEXTZZ « FOR ZZ-OOTOPPSTEP 44 « PR XNT3ZZ ,CHRS( 191 > I INEXTZZ *F0RZZ-00-lT0PP~lSTE 
P44IPRINT 3ZZ,CHR8( 191 ) v 

8021 NEXTZZ 1FORZZ-00-2TOPP-2STEP44 1PRINT3ZZ,CHR*< 191 ) | 1NEXTZZ 

8022 FOR ZZ-1TO301 NEXTZZ 1 RETURN 
9000 PRINT3103, “DIAMANTE DE ORION"? 

9010 PR INT3237 , CHRS( 140)+8TRINGS(5, 174)1 

9020 PRINT3298.CHR»(174>*CHR*(140>*CHRS(131 ) *CHR»< 129 ) *CHR» < 174) ♦CHR*< 1 4 
0)*CHR»< 140)»CMR»(144)*CHR%( 144 >+CHRS( 131 >»CHR*( 137>*CHR»( 144>»CHR*( 144) 

9030 PRINT3341 ,CHR0( 130) ♦CHR0( 172 >+CMR 0(144) ♦CHRSl 174 ) ♦CHR4< 144 ) *CMRS< 14 

0 ) ♦CHRSr 140) «-CHR3( 1 40 ) *CHR0( 1 40 ) ♦CHRS< 134)*CHR»( 174)*CHR0( 174)*CHR»< 172) 
♦CHR0( 134 > I 

9040 PRINT3427,CHR»(l37>i-CHR*(l44)*CHR*< 138 ) *CMR»( 147) ♦CHR»( 131 ) ♦CHR*( 13 

1 ) ♦CMR*( 131 l+CHRK 155) +CHRK 128) ♦CHR0( 152) ♦CHR$( 129) ) 

9050 PR INT3492. CHRS ( 130 >»CHR*( 144 >*CHR»( 130 >*CHRS( 144) ♦(:)«*( 140)»CHR*(13 
4>+CHR*( 140)*CHR 5(134)? 

9040 PR INT3558 ,CHRS( 137 )4CHR$( 144>+CHR5( 129 ) ♦CHR5( 152 )+CHR0< 129) ? 

9070 PRINT3423,CHR5( 130>*CHRS( 134) | 

9080 RETURN 

10000 PRINT3177.CHRS(140)*CMR$( 144>| 

10010 PR 1NT3241 ,CHR*(170)»CHR*( 149) ? 

10020 PRINT3304,CHR5(184)«CMRS ( 190 > *CHRS( 189 >+CHRS( 180 > I 

10030 PR INT3342. CMRS ( 140 > ♦STRINGS (3. 174 >«CHR5( 184>-CHRS( 151 )*CHR*( 143)*C 

MR»(133>*CHR*<147)*CHR»<147)*CHR8(171>*CHR»<l80>»CHR8<174)4CHRt<174>*CHR 

S(174)*CHR1(144>| 

10040 PRINT3424.CHR5(130)»STR1NG*(3, 131 )*CHRS( 139) ♦CHRS( 181 >»CHR*( 178>*C 
HRt< IB3)*CHR»< 182)«CHR»< 177 > ♦CMRS ( 184)*CHR*( 135>»CHRS( 131 >*CHRS( 131 ) ♦CHR 
5(131 ) ♦CHRSI 129) ? 

10050 PRINT3494.CHR5(139)*CHR5(173)*CHR5< 159>*CHR5( 135) I 
10040 PRINT 3341 ,CHR3( 170>+CHR8<149)? 

10070 PRINT8423.CHR3(130)*CHR8< 129)1 
19080 PRINT8104."ESTRELA 00 PODER"? 

10090 RETURN 

10500 00-RND( 10) «XX*RND( 10) IVV-RND( 12) 

10510 PR INT317 1*00, CHR5< 132)1 IPR INT3238*XX, CHRS( 129 > ) ?PR INT3355+VV , CHRS( 
130>«?PRINT3359*XX.CMR$(132):«PRINT3412*OD.CHR5(132)|tPRINT3429*OD.CHR5( 
129)1 

10520 RETURN 

20000 F OR SS*1TO590?NEXTSS* RETURN 
21000 CCS * GOSUB 440? G0SU8 10500 

21010 HH-PEEK < 14921 ) ?MM-PEEK ( 14920) ?S8-PEEX ( 14919) 

21020 PRINT3128,"R*0t »»- 1 he " ?MH? " « "? 19-«M?"t" ?59-8S? 

21025 Hl-Nl-1 
21030 GOTO1130 

22000 CLS- GOSUB 440? GOSUB 10300 

22010 PRINT344 , "0 »«u t«xpo trrxlnou"? 

22020 GOTO1840 

30000 J-USR < 23484 ) ? J«USR ( 25484 > ? J-USR ( 23484 ) ? J-USR ( 104 ) 

30010 J-USR (25494)1 J-USR ( 25494 > « J-USR (23494)1 J-USR (112) 

30020 RETURN 

33000 J-USR ( 12900 > • J-USR ( 12894 ) 1 J-USR ( 15444 ) I J-USR ( 30783 ) « J-USR ( 12912 > I J 
-USR (12900)1 J-USR ( 25494 ) I J-USR (12912)1 J-USR ( 1 2900 ) 1 J-USR ( 15434 > I J-USR ( 30 
777 ) I J-USR ( 12875 ) I J-USR ( 1 2847 ) 

33003 J-USR ( 17983 ) 1 J-USR ( 17977 ) 1 J-USR (25431 > 

350 10 J-USR ( 1 2900 ) 1 J-USR ( 1 2894 ) I J-USR ( 1 5444 ) I J-USR ( 30783 ) I J-USR ( 1 7977 > I J 
-USR (17971)1 J-USR (30748)1 J-USR ( 1 2851 > « J-USR ( 1 2857 ) i J-USR ( 1 2851 ) 1 J-USR ( 12 
B57 > I J-USR ( 12851 ) « J-USR (14137)1 J-USR ( 43 ) 

33020 RETURN 

40000 J-USR ( 20404 ) • J-USR ( 308 14)1 J-USR ( 20580 ) 1 J-USR ( 308 14)1 J-USR ( 20555 ) 1 J 
-USR (30804)1 J-USR ( 20574 > 1 J-USR ( 30804 > 1 J-USR (12875)1 J-USR (12884)1 J-USR ( 30 
814)1 J-USR ( 30795 ) 1 J-USR ( 20543 ) I J-USR ( 30777 > 1 J-USR ( 20337 > 1 J-USR ( 30783 ) 1 J- 
USR ( 20335 ) 1 J-USR ( 30795 ) 

40010 J-USR ( 20574 ) 1 J-USR ( 30804 > 1 J-USR ( 20574 > i J-USR ( 30804 ) 1 J-USR ( 1 2875 ) 1 J 
-USR ( 1 2884 ) i J-USR (30814)1 J-USR ( 20592 ) 1 J-USR (30832)1 J-USR (20404)1 J-USR (94 
> 

40020 RETURN 
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SUPRIMENTOS PARA CPD FILCRES: 



SOLUQOES NA MEDIDA EXATA DE SUAS NECESSIDADES. 





A Filcres tem sempre em estoque e para pronta entrega tudo o que 
voce precisa para o seii CPD: fitas impressoras, formularios, 
diskettes, e mais uma infinidade de outros acessdrios. 

E conta ainda com uma equipe de profissionais altamente 
qualificados, prontos a Ihe prestar o melhor atendimento, 

T udo isso com a qualidade que v. exige e um prego sempre 
compatfvel com seu orgamento. 

E s6 telefonar e esquecer seu problema. 

A Filcres leva o suprimento que falta ate voce. 



AJUOANDO A DESENVOLVER TECNOLOGIA 

Rua Aurora. 165 - SP - Tel. PBX (Oil) 223 7388 - Telex (Oil) 31298 Direto - SP - 223-1446/ 
222 3458/220 91 13/220 7954 D.reto outros Estados 222 5430/221 -0326/223 7649/222 0284 






apple apple apple appl 




Orbita 



Escrito para microcomputadores da 
linha Apple, Orbita e um jogo em que 
voce devera rastear e destruir os satelites 
espiOes inimigos que orbitam uma nova 
estrela conquistada pelo homem do se- 
culo XXI. 

Voce possui quatro naves radares, 

? |ue posicionam a mira sobre o alvo, a 
im de dispararem seus raios destruido- 
res. 

Nao hi limite de tiro, podendo-se 
disparar diversas vezes sobre o mesmo 
satelite, mas este n§o e um bom procedi- 
mento, pois um ponto seri decrescido 
do seu placar a cada disparo. 

A cada satelite atingido, voce recebe- 
ra um bonus de dez pontos, porem per- 
dera tres, caso o satelite escape de sua 
persegui^So. 

0 jogo se encerra quando vinte sateli- 
tes conseguirem furar o seu esquema de 
defesa. 

O PROGRAMA 

A velocidade de processamento 6 ra- 
zoavel, se considerarmos que se trata de 
um jogo com movimenta 9 So de figuras e 
escrito em BASIC. No entanto, sera par- 
ticularmente interessante compila-lo 



quando voce ja estiver craque e desejar 
que lhe sejam exigidas a^des mais rapi- 
das, aliadas a uma boa dose de reflexos 
e coordena^io de teclas. 

Na compila^ao, e recomendavel que 
se altere o loop vazio FOR/NEXT da li- 
nha 2500, de 30 para 40 vezes, para que 
as velocidades dos satelites nao sofram 
variances quando sua mira estiver parada 
na tela. 

PARTES DO PROGRAMA 

50-98 : Instru^oes do jogo 

210-300 : Defini^ao das velocidades 
dos satelites, posi^ao on- 
de surgirio no video e os 
tipos de satelites (total 
de seis). 

350-380 : Finalizagao de uma par- 
tida 

400-440 : Rotina que altera a estre- 
la no centro do video 

500-650 : Movimentasao dos sateli- 
tes na horizontal 

700-850 : Movimenta^ao dos sateli- 
tes na vertical 

1000-1160 : Formatagio das figuras 
utilizadas, a partir do en- 
dere 90 24576 (decimal) 



= inicio da pagina 2 de 
alta resolu^ao 

1500-1580 : Rotina que desenha a te- 
la de jogo 

2000-2500 : Rotina de posicionamen- 
to da mira 

VAR1AVEIS UTILIZADAS 

V% : Velocidade das naves satelites 
L% : Lado da tela em que os sateli- 
tes surgirSo 

N% : Tipo de nave satelite que iri 
surgir 

S% : Contador de naves satelites 
P% : C6digo das teclas pressionadas 
PT% : Pontos marcados 
RE% : Placar recorde 
NL% : Naves satelites nao atingidas 
XI% : Posi^Io horizontal inicial 
XF% : PosilfSo horizontal final 
YI% : Posi 9 §o vertical inicial 
YF% : Posi^io vertical final 

Mario Folli 6 Engenheiro Civil, formado 
pela Escola de Engenharia Maui. Atualmente, 
trabalha como Analista da Area de Repasses 
do Banco Itau, onde desenvolve sistemas em 
microcomputadores Itau tec. Ele tambim 6 
Instrutorde linguagem BASIC, na S.O.S. Com- 
putadores, e usuirio de um Apple II. 



50 HEM APPLE 11 * ORBITA « OUT/ 

85 • MARIO FOLLI » 

60 HGR i TEXT I HOME * INVERSE 

70 PRINT t PRINT SPC< 14>|"0 R 
B I T A"* SPC< 15) i NORMAL 

60 PRINT i PRINT "SEU 08JETIV0 N 
ESTE JOGO, E’ A OESTRUICAODE 
SATELITES ESPIOES GUE ORBIT 
AM UMA NO-VA ESTRELA CONGUIS 
TADA PELO HOMEM." 

82 PRINT "PARA CUMPRIR ESTA MISS 
AO.POSICIONE A MI-RA E DISPA 
RE RAIOS CONTRA OS ESTRANHOS 

84 PRINT "O JOGO TERMINA GUANDO 
29 SATELITES ESCA-PAREM DE S 
UA PERSEGUICAO."! GOSUB 1000 

86 VTAB 12> HTAB 1 i INVERSE i PRINT 
SPC< 1 1 > ( "TECLAS UTILIZADAS 
"» SPC< 12>i NORMAL i PRINT 
SPC< 40 ) i 

88 PRINT "AlCIMA ZtBAIXO <-iES 
G. - > »DIR . BE i TIRO" t SPC< 40 
)fi INVERSE 

90 PRINT SPC< 11)»"P 0 N T U A 
C A 0"t SPC< 12)1 NORMAL 

92 PRINT i PRINT SPC< 3>"SATELI 
TE ATINGIDO + 10 PONTOS" 



98 GOSUB 15008 INVERSE l PRINT i 
PRINT " PRESSIONE GUALQUER 
TECLA PARA 0 INICIO ";t VTAB 
21 HTAB 201 GET A4s NORMAL i 
HOME 

100 POKE - 16304,01 POKE - 162 
97,0i POKE - 16300,0! REM 
RECUPERA PAG . 1 ALTA RES. 

200 VTAB 22! HTAB 51 PRINT "PONT 

OS* "iPTX ! " " | i HTAB 30i PRINT 

"•ORBITA"! HTAB 51 PRINT "RE 
CORDi"iREXt i HTAB 30i PRINT 
"NAVES! "»NLX l l GOSUB 400 

210 VX - RND (1) • 61 IF VX < 2 THEN 
210 

220 LX - RND Cl) • 51 IF LX - 0 THEN 
220 

230 NX - RND (!) • 7i IF NX = 0 THEN 
230 

240 SX - SX ♦ HVX - VX ♦ CSX > 1 
5) + CSX > 30) 

250 IF NLX = 20 THEN 350 

300 ON LX GOTO 500,500,700,700 

350 FLASH l VTAB 21 i HTAB 51 PRINT 
" FIM DE JOGO i OUTRA VEZ 
/N>?"»1 GET ASi IF AS - "N" THEN 
TEXT l HOME l NORMAL l END 

360 IF AS C > "S" THEN PRINT CHRS 



• 7ISX - RND Cl) • 15! IF 
SX - 0 THEN SX - 15 
HC0L0R- HXi SCALE- SXl FOR J 

- 0 TO 64 STEP 4! ROT- J! DRAW 
7 AT 140,801 NEXT 

POKE 0,5 + INT C RND Cl) • 
100)1 POKE 1.5 ♦ INT C RND 
Cl) « 30)1 CALL 771! NEXT 
SCALE- It HCOLOR* 3t ROT- Ot 
RETURN 

REM ESGUERDA C — > DIRE I TA 
YNX - RND Cl) • 140t IF YNX < 

21 THEN 510 
XIX = 501XFX - 230 
IF LX - 2 THEN VX - - VXlXI 

X = 2301XFX = 50 
FOR M - XIX TO XFX STEP VX 
XDRAU NX AT M.YNXtPX - PEEK 
< - 16384)1 IF PX - 160 THEN 
610 

GOSUB 2100 

XDRAU NX AT M.YNXi NEXT iNLX 

- NLX ♦ 1 ! PTX - PTX - 3i GOTO 
200 

POKE 0,200! POKE 1.8! CALL 7 
711 SCALE- 3! XDRAU 1 AT XX, 

YX: POKE 0,100! POKE 1,81 CALL 
771! XDRAU 1 AT XX, YX! SCALE- 
UPTX - PTX - 1 



94 PRINT SPCC 3)"SATELITE ESCAP 

A -03 PONTOS" 

96 PRINT SPCC 3) "TIRO DISPARADO 
-01 PONTOS" 



C 7 > i GOTO 350 

370 IF PTX > REX THEN REX = PTX 
380 NLX - OtPTX » 0: HOME t NORMAL 
i GOTO 200 

400 REM MODIFICA A ESTRELA 
410 FOR I = 1 TO 3iHX - RND Cl) 



620 IF M > XX - 5 AND M < XX ♦ 5 
AND YNX > YX - 5 AND YNX < 
YX ♦ 5 THEN 650 

630 POKE - 16368,01 GOTO 600 
650 PTX - PTX ♦ 101 FOR I - 1 TO 



36 



MICRO SISTEMAS, Janeiro/86 



5t SCALE- It XDRAU NX AT XX, 

YXi POKE 0,1 • 101 POKE 1,51 
CALL 771t XDRAU NX AT XX, YX 
t NEXT i SCALE- It POKE - 1 
6368.01 XDRAU NX AT M.YNXi GOTO 
200 

700 REM CIMA/BAIXO BAIXO/CIMA 

710 XNX - RND Cl) • 230! IF XNX C 
51 THEN 710 

720 YIX « 201YFX - 140 

730 IF LX - 3 THEN VX - - VXiYI 

X - 140IYFX - 20 

740 FOR M - YIX TO YFX STEP VX 

750 XDRAU NX AT XNX.MIPX - PEEK 
C - 16384)1 IF PX » 160 THEN 
810 

760 GOSUB 2100 

800 XDRAU NX AT XNX, Ml NEXT INLX 

- NLX + UPTX - PTX - 31 GOTO 

200 

810 POKE 0,2001 POKE l,8t CALL 7 
7H SCALE- 31 XDRAU 1 AT XX, 

YXi POKE 0,100! POKE l,Bi CALL 
7711 XDRAU 1 AT XX.YXi SCALE- 
UPTX - PTX - 1 

820 IF M > YX - 5 AND M C YX ♦ 5 
AND XNX > XX - 5 AND XNX < 

XX ♦ 5 THEN 850 

830 POKE - 16368,0: GOTO 800 

850 PTX - PTX ♦ 10! FOR I - 1 TO 
5« SCALE- It XDRAU NX AT XX. 

YX t POKE 0.1 * 101 POKE i.5l 
CALL 7711 XDRAU NX AT XX, YX 
i NEXT i SCALE- H POKE - 1 
6368.0! XDRAU NX AT XNX. Ml GOTO 
200 

1000 REM FORMATACAO DAS FIGURAS 

1010 DATA 173.48,192,136,208,4, 
198,1, 240 , 8 , 202 , 208 .246,166, 
0,76,3,3,96 

1020 DATA 10.0,22,0,44,0,74,0,1 
06,0.136,0,172.0.203,0,209,0 
,230.0,251,0 

1030 DATA 9,45,61,63,60,60,36,5 
2,54.55,55,63,47,45,46.46,54 
.38,36,37,37.0 

1040 DATA 33,36,60,44,53,55,54, 



63.63,55,39,44.46.45,54,54,6 

2.46.37.39.36.45.45.37.53.62 
,60,63,4,0 

i DATA 42,53,54,45,61,63,36, 

36.36.36.45.61.63.54.62.63.3 

9.36.63.47.45.54.54.54.54.63 
,47,45,36,44,5.0 

DATA 36,36.45,60,63,55.45, 

54.54.55.55.63.36.55.54.46.3 

6.45.44.44.53.53.45.36.53.54 
,62,36,7.0 

DATA 45,45,36,53,54,62,36, 
63,63.36,36,63,44,45.53,63.5 

4.54.63.63.54.39.36.44.54.45 
,45,54,54,63.46,45,37.63,4,0 

DATA 45,45,53,54.39,36,63, 

63.63.63.39.36.53.54.45.45.3 

6.36.44.45.62.63.54.54.54.54 
,62,63,44,45,0 

DATA 33.63,54,45,4.0 
DATA 38,45,53,9,52.27,36,3 
9,39,39,52,62,62.62,54.27.52 
,9,44,45,0 

DATA 52,63,39,27.38,9,54,5 
3.53,53,38,44,44,44.36.9,38, 

27.62.63.0 

DATA 52.38.47,61,13,9.36,3 

6.63.63.63.63.54.54.54.54.45 
,45.45,45,36,36,0 

FOR I - 771 TO 7891 READ AX 
l POKE I . AX! NEXT t PRINT 
PX - 163841 FOR I = 1 TO 274 
l READ AXt POKE PX.AXiPX - P 
X ♦ li PRINT "."»! NEXT 
POKE 232,0! POKE 233,64! REM 
ENDERECO DAS SHAPE TABLES 
16384/256-64 
RETURN 

REM DESENHA TELA INICIAL 
HCOLOR- 3i HPLOT 30,0 TO 25 
0,0 TO 250.159 TO 30,159 TO 

30.0 TO 45,15 TO 235.15 TO 2 
35,145 TO 45,145 TO 45,15 

FOR I - 1 TO 100 
XX - RND Cl) • 235i IF XX < 
45 THEN 1530 

YX - RND Cl) * 1451 IF YX < 



15 THEN 1540 

HPLOT XX.YXI NEXT I ROT- 0! 
SCALE- 1 

HPLOT 250,0 TO 235,151 HPLOT 
250,160 TO 235.1451 HPLOT 30 
.160 TO 45,1451 HCOLOR- 6 
FOR Y - 15 TO 145i HPLOT 1. 

Y TO 21, Yi HPLOT 259, Y TO 27 
9. Y t NEXT iXX » 140i YX = 80 
XDRAU 8 AT XX, 1551 XDRAU 9 AT 
XX. Si XDRAU 10 AT XX.YXi ROT- 
16! XDRAU 8 AT 35, YX: XDRAU 
9 AT 245, YX! ROT- OiNLX = 0! 

PTX = 0 : NX = 0: RETURN 
REM MOVIMENTOS DA MIRA 
IF PX = 136 AND XX > 50 THEN 
XDRAU 9 AT XX, 5i XDRAU 8 AT 
XX, 155i XDRAU 10 AT XX.YXtXX 
- XX - 5: XDRAU 9 AT XX. 5i XDRAU 
8 AT XX. 155: XDRAU 10 AT XX, 

YXi RETURN 

IF PX - 149 AND XX < 230 THEN 
XDRAU 9 AT XX, 5: XDRAU 8 AT 
XX. 155t XDRAU 10 AT XX.YXiXX 
= XX ♦ 5i XDRAU 9 AT XX. 5i XDRAU 

8 AT XX. 1551 XDRAU 10 AT XX, 

YX: RETURN 

IF PX = 193 AND YX > 20 THEN 
ROT- 16! XDRAU 8 AT 35, YXi XDRAU 

9 AT 245. YXi ROT- 01 XDRAU 1 
0 AT XX.YXi YX - YX - 5: ROT- 
16! XDRAU 8 AT 35, YXI XDRAU 
9 AT 245, YX! ROT- 0! XDRAU 1 
0 AT XX.YXI RETURN 

IF PX = 218 AND YX < 140 THEN 
ROT- 161 XDRAU 8 AT 35. YX! XDRAU 
9 AT 245, YXt ROT- 0: XDRAU 1 
0 AT XX.YXi YX - YX ♦ 5i ROT- 
161 XDRAU 8 AT 35, YXi XDRAU 
9 AT 245, YXI ROT- 0: XDRAU 1 
0 AT XX.YXi RETURN 
FOR F » 1 TO 30! NEXT t RETURN 
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ft IAO COMO-COR«’ 

IMMNB4 M 009 *AAA«KJIDi»TA». 

IMT( OA hoprITAOO HA COprOTAucaOi 
INIIIU* A% HAVll iHVAIOAAAl 
I Of evil DAG MANMAI HO LAtlftlNTOl 
10 'AAOICIOtPAL INWAMMI 

•oallt ho laoioihtoi 

• MftTftu* Q» AV 1 04 ft INIMIOOAI 

• tvtfl o PUUOO DO* AIININMH 
•JOOUC com o H ICAO HO TAOULIIAO' 

A TALK* HAVA*. • UA.AADOA DC CAMACT|A*| 
HlHUGCmAk COn o oamc sat alma havAv 

• MA1AUA O* 1 GDIT ACULOO CO n O MU JA 
TO CACA. 

• taabICIOmaa ca»HI> 
iTAAOIC lOMAl » AOOCX A I 
ItAAOICtOMAc PklAAEAl 
IMCTAUA O* OICCOI VOADOAIH 
IPICMA 0 i A»ui.ll AO PHtNtlAOl 
••OMlIR VCAftAO AVAMCAOA! 
iAAAAC O GO | C I DA &A NOAT& | 

tvoci «m PltOtO M un KMIMMIAO <n 

M#A DA GOA MAC AO I 
N • MOV A v|A»AO OO AlHAACk.1 



(A MYA 30 
in RITA 10 
m a |f A Ju 
•n MIA 10 
l" MU lO 
in o|TA 10 
in A If A X> 
*n » |TA 10 



in P|fA 10 
in P|fA lO 
in P|f A io. 
in pita 10 



AAAHMAS I OUTAOI Uni 

P4IM AflO CAMAO M AITCAOIMI.MI- 

taumoo-OAi 

‘POAMUCA t con OIvCAOOO C I ACut too • 
IPAOULOAO OAnC-OCITAUA OO OvO* l MAC I * 
All IWVAIOnCI 
HI -NIIMUA A HAVt SAM* 

• ULtAAAAIM 0% AIT I AO I MO ) 

VOO PAOucOlO Pcionl -IlMUCATOA. 

• MP«H«A A C t 0AM DO! RAICH MOA t A 1 1 • 

• O OIIIMVO I** C*AOAR AO HuClIO' 

i AT I %| HA AAM LtARAAt 

au»A Dt f |P* AOA l 

•OCHAuA A |«TA|lA OA nOATf. 

•CMCOul ao IOAO OO lot*. • Pul A no 
Ml SCOH’f AO 

'Ml'RVA n n | III II HUCLlAAII in- 
• * AA» AMR * AA | » A< n ATACAH A » ( AAA > 



in » i i a JO 
in # itA lo. 
in p l f a *> 



in PifA io 

|M PITA JO 
|H PITA 10 



in PITA JO 
in PITA IO 
»« MM 1C 
m PITA JO 
m P|1A JO 



OOAOOH >Avt Oo 'IAAAOUCOI 00 * nonciOOI- 

POPIR •loom P»»R con o HICAOT 

HIOMT CAAHTAITJPO IHVAIOAtll 
At II*. Oil- 'OIGTAUA 0 % A|T«AOI00< 
tHAAff >AM AC HOI um | | T A AHHOI • 

PA4COHI • VI A > AO OU P>n|Hl«- lIHlACIOMAft.! 

CAHHOIlA MfJ'DOTRUA 0 COL DADO I 0 PO*T« . 

SHA A+TAC* • » tAU AVAP<AOO 01 COn* com • 
m | HO T AljAO HICAAf 00 CAOIAIHTOl 

I |f AC AO OAOITAL IHAU Min Ol 1 1 AUIA l/IOTACAO oao. 
OALARfAHI TAAVtL •HOVIOADC *|AO OA4. A« I APR! • . . « 

% * AA KACUR 1 HOVIOAM MAO OOHOAAOI |AO< . . . . 

OOLO 1 MITAUA Ol IHinlOOl MO UAOintHTOl 

• AAA 1 1 ■ A nut A M AAAATIl 

IOCCIA • loom PUTIOOl con 0 nIC AO' 

• All PAIL 1 »|HT| PIOAP 0% OOJItOI HA I'OlAOAi 

P|«t PATAOL 10 IITAUA Ol tMlAIOOl OO Mu CAHIP^O' 



OA? CALCULAOOAA IP AC a OO UU n|CHO VARA C A*. Cut a 01 ^ A ■ in 01 ICO 

OAO AAlA 9 I •• T A IIMAUI'AI A APIA CO-A| »P(|nMHC I A . |H PITA 

OAV HAlA OlAfTA * I Din AC l AA *" OIOCO 

0 »O COHTAOLf DC CVttMTVS 'AJPOUlVl I CAOAITAI AuA Cl»- 

IR’lLAi . W 

0 >» CA 1 C- 1 HOO IVIOICAIC A/O MU tOOOi *" 

rrn <aic tooo «i»«n acihai o» oioco 

OM COHTAtn I OAHCAAIO 'CUMfAOLI %• COHTA COAA|Ht| . in P|TA 

o '« hjcMCAlC • NOVA VOAIAO OO CALC • fOOO * IH OIOCO 

O?0 OAHCO DC OAO<n 'DATA UU i OIOCO 

0?A lOTO • MA T (HAT 1 C A DA LOtO TIM niLlOPtA 

•JO. in OIOCO 

0++ OA AAL OT • A AC A HUWRH HA * It A A |APM»|IOO- 

A A . «■ 

0*0 COHtAOL* 0« IITOOUI COHtAOLl KU IITOOUO COM 

o o«u /oooi ** aioco 

07 A COHtAV A AC Cl AC ■ <CQntAui| O MU CAIOITO' IH OIOCO 

OAO COHTAf A AfCCDOA COHTAOLl O OlU CAtOITO> «» * 

Of) COHTADILIOAD* DO l AA 



SIVUMIVIII t MHR l» OIOACTTI 
pn UIICO AU.UUU 
in DtACO I IO OO o 
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N9s PROGRAMAS: 

NOME : 

END.: 

Cl DADE : UF.: CEP: 
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Batalha Naval 




0 programa que apresentamos a se- 
guir, ilustra como uma ideia simples po- 
de dar origem a um jogo de razoavel 
complexidade. Uma das coisas mais tri- 
viais que se pode pensar, ao fazer um jo- 
go, e num atirador e num alvo. Obvia- 
mente, nesses casos, o usuario costuma 
fazer o papel do atirador. Em nosso 
exemplo, usamos um navio lan 9 ando 
cargas em profundidade num submarino. 

Um pouco mais difi'cil e engendrar 
uma forma de fazer com que o usuario 
tenha que pensar antes de dar seu tiro. 
Em nosso jogo e praticamente inevitavel 
o uso do fosfato cerebral! O usuario e 
obrigado a pensar para obter exito (e is- 
so, para muitos, doi!). 

A ideia por tras de tudo e bastante 
simples. Para atingir o submarino, o usu- 
ario deve dar a posi^So em que a carga 
sera lan^ada e isso e feito atraves da in- 
trodu^So de tres numeros: um que indi- 
que a posi^ao na dire^ao Norte-Sul, ou- 
tro que indique a posi^ao na dire95o 
Leste-Oeste e um terceiro indicando a 
profundidade em que a carga devera ex- 
plodir. 

O submarino e colocado, ao acaso, 
dentro de uma regiao cubica de 8 Km na 
dire 9 §o Norte-Sul, 8 Km na dire 92 o Les- 
te-Oeste e 4 Km de profundidade. Nessa 
mesma regiao, esta colocado tambem o 
navio lan 9 ador de cargas. Observe a figu- 
ra 1. 

Note que o navio sempre fica no ver- 
tice do paralelepipedo formado pela re- 
giao de 8x8x4 quilometros cubicos e 
que o submarino e sempre colocado nu- 
ma posiySo de coordenadas inteiras. Por 
exemplo, ele nunca vai estar em uma 
profundidade de 2,5 Km (estara a 2 ou 
3 Km). 

Ao ser executado, o programa pede a 
introdu 9 Jo dos tres numeros indicadores 




da pos^So. Inicialmente, a distancia ao 
longo da dire 9 So Norte-Sul (N/S), de- 
pois a distancia ao longo da dire 9 So Les- 
te-Oeste (L/O) e, finalmente, a profun- 
didade (P). 0 primeiro tiro deve ser da- 
do ao acaso. Lembre-se que os valores 
para N/S e L/O devem estar entrc 0 e 8, 
e os valores para P devem estar entre 0 e 
4. Caso esses limites sejam desrespeita- 
dos, o tiro ser£ perdido. 

Como resposta a cada tiro, o progra- 
ma da uma dica ao usuario: a distancia a 
que a carga explodiu do submarino. Essa 



distancia e calculada atraves do “Teore- 
ma de Pitagoras” aplicado a um espa 90 
tridimensional (Teorema de “Trilago- 
ras”). A ilustra 9 ao do teorema pode ser 
vista na figura 2. 

£ a partir dessa informa 92 o que os ti- 
ros subseqiientes devem ser dados. Por 
exemplo, imagine que seu primeiro tiro 
tenha sido S Q] 31 e que a dis- 
tancia obtida como dica tenha sido 4. 
Isso significa que a distancia em que a 
carga lan 9 ada explodiu do submarino foi 
de 4 Km. 

0 segundo lan 9 amento ja deve ser fei- 
to no sentido de verificar a pos^So do 
submarino numa dada dire93o. Conside- 
rando ainda a situa 9 So exemplificada an- 
teriormente, suponha que queremos ve- 
rificar profundidade. Basta manter os 
numero N/S e L/O e alterar - para mais 
ou menos — o numero P. Por exem- 
plo, imagine que fizemos o lan 9 amen- 
to d] E [2] e que recebemos a di- 
ca 5.196. Isso significa que nos afasta- 
mos da pos^So procurada e e conveni- 
ente tentarmos outro sentido. 

Se tentarmos o lan 9 amento [4] CD [4] 



e obtivermos o mesmo numero como 
dica (5.196), podemos entJo concluir 
que a profundidade do submarino e de 3 
Km. Agora, devemos fazer o mesmo 
com os numeros N/S e L/O. 

Depois de algumas partidas mal suce- 
didas, voce achara o caminho certo para 
destruir o submarino. Eventualmente, 
apos adquirir bastante pratica, o leitor 
pode tentar alterar dois ou tres numeros 
de uma so vez. 

Vamos, agora, completar o programa 
de modo a sofistica-lo um pouco. Antes, 
porem, analisemos suas partes princi- 
pals: 



Inicializaipao - Esta parte faz a apre- 
senta93o na tela, recebe o nome de joga- 
dor atraves do teclado e sorteia a posi- 
9^0 do submarino na regiao delimitada 
para o jogo. O sorteio e realizado atraves 
da furhjSo RND. Como a pos^So do sub- 
marino e dada atraves de tres numeros, 
basta fazer um sorteio para cada um de- 
les (veja as linhas 80 a 100). Se voce qui- 
ser alterar a regiao onde o submarino 
pode estar, basta mudar os numeros 9 e 
5 nas linhas 80, 90 c 100. 

Lan 9 amentos — Esta parte recebe os 
dez lan 9 amentos do jogador. Cada lan 9 a- 
mento necessita da introdu 9 §o de tres 



1* COLOR 4 , 7 » SCREEN 0IUIDTH 30 
2# PR I NT “BATALHA NAVAL TR I-0IMENSI0NAL" 
SO PRINTIPRINT'OIGITE SEU NOME ALMIRANT 
Ei“ 

60 INPUT N* 

70 CLS 

BO LET LOO® I NT (RND< -TIME)«9> 

90 LET NS0®INT < RND ( -TIME >«9 ) 

100 LET PO-INT(RNO(-TIME)»5> 

110 LOCATE 2.1 «PR INT"ALMIRANTE »" »N6 
120 LOCATE 2,4iPRINT"TIR0 L/O N/S 
P - DISTANCIA" 

130 FOR T-l TO 10 

140 LOCATE 3,T*5iPRINT T 

150 LOCATE 11,T*3 

160 LINE INPUT LOS 

170 LOCATE 17.T+5 

180 LINE INPUT NSS 

190 LOCATE 22, T»5 

200 LINE INPUT PS 

210 LET DLO-VAL < LOS ) -LOO 

220 LET DNS-VAL ( NSS ) -NSO 

230 LET DP-VAL < PS ) -P0 

240 LET 0-INT< .3-1000-SQR <0L0»DL0*DNS«D 
NS+DP»DP > 1/1000 
250 LOCATE 26.T+5 

260 IF UAL (PS) >4 OR VAL(P*X0 OR UAL (NS 
SUB OR VAL(NS*X0 OR VAL(L0S)>B OR UAL 
(LOSXO THEN PR INT"perd I do I " »G0T0 300 
200 PRINT D 

290 IF 0-0 THEN GOTO 380 

300 NEXT T 

310 FOR G-l TO 10 

320 FOR F-2 TO 1 5 « COLOR 1 , F t CLS : NEX TF 

340 NEXT G 

350 LOCATE 2,20 

360 PRINT * PR I NT *PRINT"SEU NAVIO ACABA D 
E SER ATINGIDO POR UM TORPEOO." 

370 GOTO 450 
380 FOR G-l TO 10 

390 FOR F-2 TO 15IC0L0R 1 . F « CLSsNEXTF 

400 NEXT G 

410 LOCATE 2.20 

420 PRINT" PARABENS VOCE FOI PROMOVIDO 
A" 

430 PRINT" ... ALMIRANTE DE ESOUAORA." 
•PRINT 

440 PRINT" VOCE FEZ "|U-T»" PONTOS" 
450 INPUT "Digltc RETURN para nova bata 
1 ha." I AS 
460 RUN 



Batalha Naval 



SQM DR PUN DO, 

30 INTERVAL ON 

40 ON INTERVAL- 1 50 GOSUB 470 

470 SOUND 6,8 
480 SOUND 7,55 
490 SOUND 10,9 
500 SOUND 11,0 
510 SOUND 12,180 
520 SOUND 13,10 
530 RETURN 



DO JaANgAMKHTO E DA 


KXPLOSAO DA CARGA. 


270 


GOSUB 


540 


540 


SOUND 


6,20 


550 


SOUND 


7,55 


560 


SOUND 


8,16 


570 


SOUND 


11,0 


580 


SOUND 


12,180 


590 


SOUND 


13, 10 


600 


RETURN 



SOM DR BXPLOSAO DO NAVIO, 

330 GOSUB 540 



Figura 3 

numeros. Apos receber cada um deles 
atraves do teclado, o programa calcula a 
distancia entre a pos^So da explosSo e a 
pos^So do submarino (atraves do Teore- 
ma de “Tritagoras”. Voce lembra!?). Fi- 
nalmente, os dados introduzidos e a dis- 
tancia calculada s£o impressos na tela no 
formato de uma tabela. 

Finaliza 9 ao - Esta parte simplesmen- 
te encerra o jogo, informando a vitoria 
ou derrota do jogador. 

Agora sim, vamos incrementar o pro- 
grama! Uma das grandes vantagens dos 
micros da linha MSX sobre os outros, es- 
ta na facilidade com que podemos pro- 
duzir sons atraves de seu BASIC. Acres- 
cente ao programa as linhas que cons- 
tant na figura 3. Todas elas tornam o 
programa um pouco mais atrativo. Ago- 
ra, voce pode come 9 ar a fazer suas pro- 
prias modifica 90 es acrescentando outros 
sons ou fazendo com que o navio e o 
submarino sejam desenhados na tela. 

Uma mudan 9 a mais estrutural seria 
fazer com que, ap6s cada tiro, o subma- 
rino se deslocasse. Isso tornaria o jogo 
muito mais difi'cil. 

0 programa deve ser digitado, man- 
tendo-se a numera 9 ao das linhas da lis- 
tagem. Posteriormente. voce devera 
completa-lo com as linhas que estao fal- 
tando. 



Pierluigi Piazzi 6 formado em Quimica e 
Fisica pela USP. Foi professor do cur so Angelo 
Vestibulares e ji editou a revista Micro hobby. 
£ autor de vdrios livros e atualmente dirige a 
Aleph Pubhcapoes. responsive! por muitos su- 
cessos na Area editorial, dada a sua orientagao 
diditica. 



PadoS 

sistemas de banco de dados 

CURSOS 

DISPONIUEIS 

• Introdu^oo 6 Microcomputo^do 

• DOS - PC "Sistemo Operocionol" 

*• UNIX "Sistemo Operodonol" 

• UNGUflGCM C “ling. Progromo^oo' 

• dBRSC II "Progromo96o Bdsko" 

• dBRSC II "Program, ftvon^odo” 

• dBAS€ III "Program. Bdsko" 

• LOTUS 1 2 3 "Plon. Cletrdnko" 

• • Fromework "Sistemo Integrodo" 

• Symphony "Sistemo Integrodo" 

• UJordstor "Processodor de Texto" 

• €m desenvoMmento 
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trs-color trs-color trs-color trs-col 



Francisco Correa 



Trata-se de umjogo,dotipoeducativo,paratodososcompu- 
tadores compativeis com o TRS-Color. Com ele, criansas numa 
faixa de cinco a nove anos de idade poderSo memorizar, brin- 
cando, a posi^So das teclas, bem como incrementar sua capaci- 
dade de concentra^o e acuidade visual. 

0 funcionamento do Olhadinha 6 muito simples: ap6s o co- 
mando <RUN>, um menu aparecerd na tela, junto com uma 
simula^do de um semdforo, a direita do video. Um bip indica- 
rd cada mudanfa de luz, do amarelo ao verde. Logo em segui- 

5 REM ************************* 

6 REM * TRS-80 COLOR CLUBE RJ * 

7 REM * C. POSTAL 2951 - 20001 * 

B REM * PORs FRANCISCO CORREA * 

9 REM ##*■*****#«#******#*#****♦ 

10 CLS 

20 F'RINT@96 , " A ESOUERDA DA TELA EXISTE UMA": PR I NT" 

S IN ALE IRA I DUAL A DE TRANS I TO. " 

30 PR I NT "UMA PALAVRA SURG1RA POR UM INS- ANTE NA T 
ELA E VOCE TERA DE DI- GITAR A RESPOSTA CORRETA. " 

40 PR I NT "VOCE GANHA 10 PONTOS PARA CADA RESPOSTA 
CORRETA. SE A RESPOSTA ESTIVER ERRADA, VOCE TERA U 
MA SEGUNDA CHANCE, MAS NAO GANHARA PONTOS." 

80 REM 

90 PRINT@42," olhadinha "; 

100 FORX=l TO 200: NEXTX 
110 SC=RND<0> 

120 PRINT@42," OLHADINHA "; 

125 SOUND200 , 1 

130 FOR X=l TO 200: NEXTX 

135 PRINT 6457 , "QUALQUER TECLA" s 

140 IF INKEY*=" " THEN 90 

150 F=250 

160 CLS 3 

170 GOSUB 770 

180 FOR X = 1 TO 30 

190 PR I NT© X , CHR* (179) ; 

200 PR I NT0X+256 , CHR* < 1 88) ; 

210 NEXT 

220 FOR Y=32 TO 256 STEP 32 
230 PRINTQY , CHR* ( 181 ) ; 

240 PRINTQY+31 ,CHR*< 186) ; 

250 NEXT 

260 FRINTQ73, "*OLHADINHA*"; 

270 FOR X = 136 TO 149 
280 F’RI NTSX , CHR# ( 191 > } 

290 PR I NT© X +64 , CHR* <191); 

300 NEXT 

310 PRINT@16B,CHR*< 191 ) ; : PRINT© 181 ,CHR*<191> ; 

320 T=T+ 1 

330 IF T>10 THEN GOSUB 870 
340 7=RND (30) 

350 IF Z=N THEN 340 
360 N=Z 

370 FOR P=1 TO N 
380 READ N* 

390 NEXT 

400 PR1 NT©289 , " »>DIGITE A RESPOSTA AQUI<<<" 

410 REM 

420 L#=CHR#<128) 

430 FOR 0=89 TO 219 STEP 32 
440 PRINT@Q,L*+L*+L#; :NEXTO 

450 PRINTQ418, " 10 PONTOS PARA CADA ACERTO"; 

460 PRINT@122,CHR*<191>; 

465 SOUND 10, l 
470 GOSUB 940 



Olhadinha 



da, o programa fard aparecer, por um breve instante, uma pa- 
lavra dentro de uma espdcie de janela desenhada na tela. 0 de- 
safio d digitar, no espa^o indicado, a mesma palavra e conse- 
guir abiscoitar dez pontos pelo acerto. 



Francisco J. M. Corria da Silva 4 Engenheiro Eletrdnico a traba/ha atual- 
mente na Xerox do Brasil, como Espacialista de Marketing. Lida com 
computagSo desde 1981 e 4 fundador do TRS-80 Color Club. 

480 PRINTQ122,L#; 

490 PR 1 NT© 1 54 , CHR* ( 255 ) ; 

495 SOUND 10,1 
500 GOSUB 940 
505 SOUND 10,1 
510 PR I NT © 154 , L* ; 

520 PRINT@186,CHR* < 143) | 

530 GOSUB 940 
540 PR I NT© 1 86, L*; 

550 PR I NT© 1 69 , N# ; 

560 FOR TL=1 TO F : NEXT 
570 FOR B= 1 69 TO 180 
580 PR I NT @B , CHR* ( 1 75 > ; 

590 NEXT B 
600 GOSUB 780 

610 PRINT©289," ";: INPUT "QUAL A PALAVRA " j W* 

620 IF W*ON* THEN GOTO700 

630 IF TRY=1 OR TRY=2 AND W*=N* THEN GOTO 670 
640 IF W*=N* THEN GOSUB 760 
650 F’R I NT@300 , "correto"; 

660 GOSUB 940 

670 TRY=0 : GOSUB 770 

680 RESTORE 

690 F=F-50: GOTO320 

700 PRINT@291 , "a"Lt"resposta"Lt"esta"Lt"errada. . . " 

710 F=F+100 

720 IF F>250 THEN F=250 
730 TRY=TRY+ 1 

740 IF TRY=2 THEN GOTO 800 
750 GOTO 420 
760 CO=CO+10 

770 PRINT©481 , "VOCE ATE AGORA TEM: "CO "PONTOS"; 

780 PRI NT@288 , " " 

790 RETURN 

800 PR I NT@302 , " * " : M=LEN <N* ) 

810 PRINT@290, “ A RESPOSTA E... n ; 

820 FOR A= 1 TO M 

830 PR I NT ©306+A , M I D* < N# , A , 1 ) ; 

840 SOUND RND1230) ,2: NEXT 
850 GOSUB 940 

860 TRY=0: RESTORE: GOTO 320 

870 PR I NT ©355 , " J OGA DE NOVO <S> OU ^N>"; 

880 Gf= INKEY*: IF G*=" "THEN 870 
890 IF G*="S" THEN 910 
900 IF G*="N"THEN CLS4: END 
910 RESTORE: F=250:CO=0:T=0 
920 CLS: pOTOl 50 
930 GOTO 320 

940 FOR TY= 1 TO 600: NEXT TY 
950 RETURN 

960 DATA R I SCAR, ACRED I TAR , RUA , MACACO , D I NHE I RO , PAO 

970 DATA REAL , CADE I A , FLOR , PEDRA , SELO , MEL 

980 DATA HOTEL, VI LA, AEROPORTO, DADOS, BATALHA , OESTE 

990 DATA PLUMA , MALA , BARRO , ANEL , L AMPADA , FORCA 

1000 DATA CAO , GATO , FR I 0 , OURO , CARA , CORDA _ 



Olhadinha 
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ATI PfoducSo 



Micro 

Fichas 



TRS COLOR 

CODIGOS E MENSAGEM DE ERRO 



7/0 Tentativa de divis3o por zero. 

AO Tentativa de reabrir arquivo. Aparece tamb6m se o RESET for pressio- 
nado durante operap3o com gravador. 

BS Os indices de gma matriz estao fora da faixa. Use DIM para dimensio- 
nar a r: itriz. 

Ex : PRINT AI12). dart este erro se A n3o tiver sido prt-dimensionado 
com pelo menos 12 elementos. 

CN Tentativa de usar o comando CONT em momento inadequado. 

Ex.: Ap6s o processamento da ultima linha do programa. 

DD Tentativa de redimensionar uma matriz. Cada matriz sd pode ser dimen- 
sionada uma vez. 

Ex. : N3o seria possivel usar DIM A(10) e DIM A(50) no mesmo programa. 

DN Uso ilegal de numero de dispositivo. Com OPEN; CLOSE; PRINT ou IN- 
PUT voc6 sd pode usar 0, -1 ou -2. 

DS lnstrup3o direta no arquivo de dados sem a especificapSo do numero 
de linha. Pode ser causado se voce tentar carregar um arquivo de da- 
dos em fita. 

FC Chamada incorreta de funp3o. Foi usada uma funp3o com um valor ile- 
gal nos seus partmetros. 

Ex.: SOUND (260. 260) ou AI-1). 

FD Formato de campo incorreto. Ocorre quando se le (INPUT) ou grava 
(PRINT) um dado usando formato inadequado. 

Ex.: INPUT 0 -1. A quando o dado no arquivo 6 uma string. 

F M Modo de arquivo invrtlido. Ocorre quando se tenta entrar com dados em 
um arquivo aberto apenas para saida (0) ou imprimir dados de um ar- 
quivo aberto para entrada (I). 



IE Tentativa de ler um dado a 16m do fim do arquivo. Use as instrupdes EOF 
e LOF para descobrir se voce j3 atingiu o fim de um arquivo, neste caso 
feche-o com (CLOSE). 

10 Erro de entrada ou saida. Ocorre frequentemente nas operacoes de gra 
vap§o com cassete. 

LS String muito longa. Cada string pode conter no m3ximo 255 caracteres. 

NF NEXT sem FOR. Foi utilizada uma instrup3o NEXT sem a respectiva ins- 
trup3o FOR. 

NO Tentativa de enviar dados para um arquivo ainda n3o aberto (OPEN). 

OD READ sem DATA. Os dados das instrupoes DATA s3o insuficientes pa- 
ra a instrup3o READ. 

OM Falta memdria, Toda a memdria disponivel foi usada ou reservada. 

OS Falta espapo para strings. Deve-se limpar espapos com CLEAR. 

OV Estouro de varidvel numdrica. Foi gerado um numero muito grande ou 
muito pequeno que o computador n3o tern capacidade para manipular. 

RG RETURN sem GOSUB. Foi encontrada uma instrup3o RETURN, sem 
um GOSUB correspondents 

SN Erro de sintaxe. Uso incorreto de pontuap3o; parenteses; aspas; cart- 
ter ilegal ou comando mal digitado. Redigite a linha ou comando. 

ST Fdrmula de string muito complexa. Foi usada uma operap3o muito com- 
plexa dentro de uma string. Divida em operapdes menores para 
funcionar. 

TM Incompatibilidade de tipo de varrtvel. Foi tentada uma atribuip3o incom- 
pativel com a string utilizada. Ex.: A = "dado". 



ID lnstmp3o direta ilegal. 

Ex.: Tentar usar INPUT sem numerap3o de linha. 



UL Linha indefinida. Foi solicitado um desvio (GOTO; GOSUB), para uma 
linha inexistente. 
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Edgar Athayde Meneghetti 



Este jogo foi escrito para os micros 
da linha Sinclair que possuem 16 Kb de 
memdria, pois ele ocupa cerca de 3 Kb e 
e totalmente elaborado em linguagem de 
mdquina. Nele, voce comanda o subma- 
rine Polaris em dguas inimigas, onde o 
objetivo e fazer o maior numero de pon- 
tos sem ser destruido. 

Inicialmente, carregue o MICRO BUG 
e crie uma linha REM com 2542 carac- 
teres. Introduza os eddigos hexadeci- 
mais a partir do enderepo 16509. Apds 
ter digitado tudo, basta dar RUN que o 
programa serd gravado, aparecendo em 
seguida a abertura. Para iniciar o jogo, 
pressione NEWLINE ou o botlo de tiro 
do joystick que a batalha ire comeparl 

A tabela de pontos 6 mostrada na fi- 
gura 1. 



Aviao =10 pontos 
Barco = 50 pontos 
Submarino inimigo = 100 pontos 
Li'der da tropa = 500 pontos 
Mina = nao pode ser destrui'da 
Bomba = n£o vale pontos 



Figura 1 




Pode-se jogar pelo teclado ou pelo 
joystick. E quando aparecer a abertura, 
o programa poderd ser brecado pressio- 
nando SHIFT e BREAK simultaneamen- 
te. 

Na figura 2 encontramos um resumo 
dos principal enderepos para eventuais 
modificapOes ou at6 mesmo uma perso- 
nificapao do jogo. Nela, observamos 
ainda que o numero de bombas 6 a pro- 
porpao de 0 a 254. 

Se voce quiser modificar o recorde, 
altere os codigos de 18021 a 18025; 



18985 


— Numero de bombas lanpadas 
pelos avides (quanto maior o 
numero mais bombas) . 


18990 


— Numero desubmarinos (quan- 
to maior o numero mais sub- 
marines). 


18995 


— Numero de minas soltas pe- 
los submarinos (quanto me- 
nor o numero mais minas). 


19000 


— Numero de bombas soltas 
pelo li’der (quanto maior o 
numero mais bombas). 


17441 


— Valor atribui'do aos avides. 


17450 


— Valor atribui'do aos submari- 
nos. 


17469 


— Valor atribui'do ads barcos. 


16736 


— Valor da pausa entre a subi- 
da do tiro e o seu apagamen- 
to (caso o tiro esteja pouco 
visfvel, aumente o valor para 
6 ou mais). 



Figura 2 



e para mudar o numero de vidas, modi- 
fique o valor do enderepo 1 7898 da se- 
guinte forma: ao numero de vidas dese- 
jadas, some 28. 

Edgar Athayde Meneghetti cursa a segunda s6- 
rie do Col4gio de Aplicagio. de Porto Alegre. 
E um autodidata que aprendeu a programa r 
em BASIC e Assembler atravds da leitura de 
livros e revistas. 



16509 


00 


01 


6E 


01 


EA 


0E 


6C 


9B 


16517 


80 


CC 


6B 


6A 


6D 


29 


60 


08 


16525 


60 


7F 


6A 


K 


6A 


Cl 


FE 


80 


16533 


C8 


FE 


0B 


CB 


FE 


89 


C8 


FE 


16561 


00 


C2 


M 


66 


C5 


C9 


2A 


82 


16569 


60 


36 


Bi 


23 


36 


83 


CD 


BB 


16557 


02 


23 


ca 


2B 


CB 


6C 


C3 


OB 


16565 


69 


CB 


sc 


28 


11 


CB 


66 


28 


16573 


26 


CB 


6C 


C0 


CB 


65 


28 


63 


16501 


CB 


SD 


28 


65 


C9 


00 


2A 


82 


16589 


60 


23 


23 


7E 


CD 


92 


60 


2B 


16597 


2B 


36 


00 


23 


22 


82 


60 


36 


16605 


81 


23 


36 


83 


1 9 


2A 


82 


60 


16613 


11 


DF 


FF 


19 


7E 


CO 


92 


60 


16621 


23 


7E 


CD 


92 


60 


2B 


22 


82 


16629 


60 


11 


21 


00 


19 


36 


00 


23 


16637 


36 


00 


2A 


82 


60 


36 


81 


23 


16665 


36 


83 


C9 


2A 


82 


60 


11 


21 


16653 


00 


19 


7E 


CD 


92 


60 


23 


7E 


16661 


CO 


92 


60 


2B 


22 


82 


60 


11 


16669 


OF 


FF 


19 


36 


00 


23 


36 


00 


16677 


2A 


82 


60 


36 


81 


23 


36 


83 


16685 


C9 


2A 


82 


60 


2B 


7E 


CD 


92 


16693 


60 


22 


82 


60 


23 


36 


00 


23 


16701 


36 


00 


28 


36 


83 


26 


36 


81 


16709 


C9 


00 


2A 


82 


60 


11 


DF 


FF 


16717 


19 


7E 


FE 


80 


28 


0C 


FE 


08 


16725 


28 


F 6 


FE 


00 


20 


20 


36 


IB 


16733 


18 


EE 


0E 


06 


06 


FF 


10 


FE 


16761 


00 


20 


F9 


11 


21 


00 


19 


7E 


16769 


FE 


0B 


28 


FA 


FE 


81 


28 


06 



16757 


36 


00 


18 


F2 


00 


C9 


C3 


7B 


16765 


67 


21 


B4 


60 


CB 


7E 


20 


0B 


16773 


23 


36 


CB 


7E 


20 


01 


C9 


28 


16781 


CB 


FE 


C9 


2A 


86 


60 


2B 


7E 


16789 


FE 


80 


28 


00 


22 


86 


60 


36 


16797 


86 


23 


36 


06 


23 


36 


00 


18 


16805 


16 


23 


36 


00 


23 


36 


00 


11 


16813 


IB 


00 


19 


22 


86 


60 


21 


86 


16821 


60 


CB 


BE 


23 


36 


00 


C9 


21 


16829 


86 


60 


CB 


56 


20 


01 


C9 


2A 


16837 


86 


60 


11 


62 


00 


19 


36 


02 


16865 


C9 


76 


00 


K 


06 


01 


EA 


2A 


16853 


0C 


60 


23 


11 


21 


00 


19 


06 


16861 


20 


36 


80 


23 


10 


FB 


23 


06 


16869 


15 


11 


21 


00 


36 


80 


19 


10 


16877 


FB 


06 


20 


36 


89 


23 


10 


FB 


16885 


2B 


06 


16 


11 


DF 


FF 


19 


36 


16893 


80 


10 


FB 


2A 


M 


40 


11 


6D 


16901 


01 


19 


06 


IE 


36 


0B 


23 


10 


16909 


FB 


2A 


0C 


60 


11 


9E 


02 


19 


16917 


22 


82 


60 


2A 


0C 


60 


1 1 


96 


16925 


02 


19 


22 


8C 


60 


11 


21 


00 


16933 


19 


22 


BA 


60 


19 


22 


88 


60 


16961 


2A 


0C 


60 


11 


68 


01 


19 


22 


16969 


86 


60 


2A 


0C 


60 


11 


9D 


00 


16957 


19 


22 


BE 


60 


2A 


0C 




11 


16965 


66 


00 


19 


36 


12 


11 


08 


00 


16973 


19 


36 


12 


19 


36 


12 


19 


36 


16981 


12 


11 


2C 


00 


19 


36 


12 


11 


16989 


06 


00 


19 


06 


06 


36 


12 


19 


16997 


10 


FB 


11 


28 


00 


19 


36 


12 



17005 


11 


08 


00 


19 


36 


12 


19 


36 


17013 


12 


19 


36 


12 


C9 


E5 


D5 


2A 


17021 


32 


60 


54 


50 


29 


29 


19 


29 


17029 


29 


29 


19 


22 


32 


40 


7C 


D1 


17037 


El 


C9 


36 


00 


E5 


1 1 


21 


00 


17065 


19 


7E 


FE 


09 


28 


F9 


FE 


89 


17053 


28 


18 


FE 


12 


28 
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Faz a Folha de Pagamento de sua empresa, 
emitindo relatdrios como Guia de IAPAS, 
Guia de FGTS, Relapao de Empregados, 
Relapao para I.R., Relapao para Banco, 
Informe de Rendimentos, Acumulados 
Anuais, RAIS e Recibo de Pagamento. 

A folha pode ser semanal ou mensal. 

As tabelas sao modificadas pelo prdprio 
usuario. 

Permite tambim, adiantamentos de sal£rio, 
reajuste salarial, alterapoes de acumulados e 
outras funpdes que agilizem o processamento 
da Folha de Pagamento da empresa. 



A Contabilidade de um mis em apenas 2 horasl 
Este Sistema permite o cadastramento de 
histdricos padronizados e de piano de contas 
com at£ 5 nfveis. 

Emite Diirio, Razao, Balancete, Balanpo, 
Demonstrapao de Resultados. Demonstrapao 
de Lucros e Prejufzos acumulados, Listagem 
por centro de custo e extrato de contas, entre 
outras funpdes. 



Controla o estoque de itens com 
Especificapao, Estoque Mi'nimo, Unidade, 
Fornecedor, Localizapao e outras 
informapdes relacionadas no item como 
Custo Midio, Entradas e Sai'das no peri'odo, 
etc. 

Fornece Listagens Geral e Parcial dos 
produtos, Listagem Fi'sico-Financeira, 
Listagem dos produtos abaixo do estoque 
mfnimo, Lista de Prepos e Etiquetas, entre 
outras. 

Admite tamtam, Reajuste de Prepos, 
AlterapSo de Dados e Exclusao de Produtos. 






Compatfveis com as linhas TR5-80 e Apple. 



A NASAJON oferece assistencia tecnica total, 
garantia permanente e mant6m a sua disposipao programadores 
e analistas para desenvolver sistemas especi'ficos sob encomenda. 
Conte com a NASAJON SISTEMAS. 



^na/ajon 

L J /ulema/ " 



Av. Rio Branco, 45 - Grupo 1.31 1 
Rio de Janeiro • CEP 20.090 
Tels.: (021) 263-1241 e 233-0615 
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■x? O peixe guloso 

A Ido Barduco Jr. e Pierluigi Piazzi 



No fur. do dia, quando os Pescadores 
se retiram, deixam latas com minhocas e 
outras iscas na beira do lago. Water, um 
peixe de nome cientiTico PISCES FA- 
MINTUS, esrf com muita fome e sai a 
procura de aJimento. Tendo o habito de 
ficar soltando bolhas na £gua, descobre 
que, ao solrf-las sob as latinhas, destas 
caem minhocas. 

Os peixes desta especie habitam os 
frios lagos do Tibet, onde existe o terri- 
vel LUPUS AQUATICUS, popularmente 
conhecido como Peixe-lobo. Os Peixes- 
lobos tern como dieta tudo que encon- 
tram pela frente, menos as terriveis Pi- 
ranhas Azuis. 

0 unico peixe capaz de se alimentar 



destas Piranhas e Water, mas, se a Pira- 
nha estiver por trfs, o devorarf em pou- 
cos instantes (a “ecologia” da regiao e 
realmente confusa!). 

O Tibet tern um relevo jovem (ter- 
cidrio), por isso s2o tflte comuns desaba- 
mentos e terremotos. A partir de uma 
certa hora, os desabamentos dos barran- 
cos do lago corner am e n3o param mais. 

Como os gatos tern sete vidas, Water 
possui tres. 

Boa sorte e muito cuidado. No Tibet, 
os misterios sffo muitos. . . 

0 JOGO 

Voce deverf conduzir Water, desvian- 
do-o dos Peixes-lobos (e da Piranha, se 



estiver atras). As teclas para controle de 
Water s5o: 7 (para subir); 6 (para descer) 
e 0 (para soltar bolhas). No topo da tela, 
estSo indicados os pontos e as vidas. 

As bolhas s6 podem ser soltas uma de 
cada vez. Caso a bolha atinja a latinha, 
minhocas cairfo na dgua, e Water deverf 
pegd-las. J£, se ela atingir o louco Monge 
Nadador, esta sumira. 

Iscas amarelas de formas estranhas 
aparecerSo na tela. Ao pega-las, voce 
adiciona 1000 pontos ao seu placar. 

Os Peixes-lobos virJo £ sua frente em 
ziguezague. Desvie, pois, se nao o fizer, 
a morte serf certa. Ja as Piranhas Azuis 
vem por trfs e tentam pega-lo. Se voce. 



5>REM Aldo Barduco Jr 

10 FOR f-USR "a“ TO USR "u"+7i 
RE AO «« POKE f.xl NEXT f 

11 LET A*-~~i LET B*-"~i FOR F 
“1 TO 32 STEP St LET A»-A»*CHR* 
1401 LET B*«B*»CHR* 149-CHR* MB 
l NEXT Fx LET A*»A*+A*I DIM R*( 1 
B.2B>> DIM R < 1 0 > 

12 BORDER U PAPER 1« INK /. 0 

OSUB 3000 . 

2# BORDER 1« CLS t LET Y-191 L 
ET BX-Ol LET BY-Ox LET BO-Bi LET 
O-Oi LET NX*#s let NY-31 DIM M< 
3)1 LET P-B« LET T-0i LET TC-B: 
LET V-B» LET TY-OI 

3* PRINT Bl|" ~» BRIGHT 1|CH 
R* 144|CHR% 145l BRIGHT 0 |" u>tr 
r, o pelxo guloso"! LET MY-41 LE 
T MX-Bi PRINT AT 21,0|A*|AT 21.0 
I INK 4 1 ODER 1 1 8 % 

40 LET K-Oi LET PX-Ox LET PY-1 
LET DX-Bi LET DY-101 FOR F-B 
TO 21 PRINT AT F.Bi PAPER 5|" 

"l 

NEXT F 

43 LET TY-YI PAPER S« INK Ox P 
RINT AT 1.5|CHR* 146»AT l.lSlCHR 
* 1 46 1 AT l,23|CHR* 146|AT 2,5|CH 
R* 147 i AT 2. IS I CHR* 147»AT 2.23i 
CHR* 1471 PAPER H INK 7 

46 PRINT AT 0,3| PAPER 5| INK 
Bi"Pontosi"| PAPER Si INK Bi AT B 
,1B|P 

49 FOR V-3 TO 1 STEP -1« PRINT 
AT B.16i PAPER Si INK 0i"Vld*gi 
“t PAPER Si INK 8 |Vi SOUND .B1.2 
#1 PRINT AT 3,B|" 

SB FOR X-2 TO 31 1 LET 0-0* <0-8 
>-(0-1) 

78 LET Y-Y*(INKEY%-"6" AND Y<1 
9>-(INKEY*-"7" AND Y>S)I IF NOT 
BO THEN LET 80-( INKEY*-"8") I LET 
BYMY-l AND B0>l LET 8X-(X-2 AN 
D BOM IF BO THEN PRINT AT BY.BX 
iCHR* 131 

71 LET K-K*(ATTR (Y.X«1)(>1S) 

73 IF TYOY THEN PRINT AT TY,X 
-3 1 " "l LET TY-Y 

08 PRINT AT Y.X-2|" "-(CHR* 14 
4»CHR* 143 AND o-l)-(CHR* 158-CH 
R* 145 AND 0-8) 

S3 IF PX-4< X AND X<PX THEN PRI 
NT AT Y,X-2|" "|CHR* 144iCHRt 15 



9 

98 IF K THEN LET K-8: GOTO IBB 

8 

95 SOUND .889.12 
188 IF P > 1 BBB THEN PRINT AT MY. 
HX|" -X LET MY-HY*(NY<28>-(NY-4 
AND MY >19) I PRINT AT MY.MXiCHR* 
1601 SOUND .00191,13 
181 IF (MX-X AND MY-Y) OR <NX-X 
-1 AND MY-Y > THEN PRINT AT Y.X-1 
l" "» NEXT VI GOTO 2008 
185 IF MY-4 THEN PRINT AT MY. MX 
l" "» LET MX-INT (RND*31> 

110 IF M< 1 ) AND <PX-X-1 AND PY- 
Y) THEN PRINT AT Y.X-2|" "i ME 
XT v: GOTO 2000 
128 IF T THEN LET T-T-l 
138 IF 8Y-NY AND BX-NX THEN LET 
BO-8 

148 LET NX-NX-(NX>8>f<31 AND NX 
'8)1 PRINT AT NY, NX | (CHR* 137 AN 
D NX/2-INT <NX/2) M(CHR* 156 AND 
NX/2< TINT (NX/2) )♦" " 

158 IF BO THEN PRINT AT BY.BXi" 
"» LET BY-BY-(BY)3>I PRINT AT B 
Y.BXiCHRS 158 

168 IF M(l) THEN PRINT AT PY.PX 
l" "1 LET PX-PXMINT (RND*2> AND 
PX< 31 ) -< 38 AND PX >38) I LET PY-P 
Y-SGN (Y-PYMINT (RND*2)I PRINT 
AT PY.PXl INK 5|CHR* 133 
178 IF M<2> THEN PRINT AT DY.DX 
l" "I LET DX-OX-1 i LET DY-OY-SGN 
( Y-DY-RNDM .5) I PRINT AT 0Y,DX| 
INK 4 ; CHR* 1531 IF NOT DX THEN 
PRINT AT OY.DXi" "l LET M(2>-8 
180 IF NOT M( 1 ) AND RNOT.l THEN 
LET PX-Os LET M(1)-PI/PI 
195 IF NOT N<3> AND RND(.02 THE 
N LET M(3)«l I PRINT AT RN0M5-3, 
RND-2V-1, INK 6 1 CHR* 154 
280 IF NOT M(2) AND RND< .2 THEN 
LET DX-3H LET M(2)-PI/PI 
203 IF (DX-X-l AND OY-Y) OR (DX 
-X AND DY-Y) THEN PRINT AT Y.X-2 
l" "I LET DY-(21-4> I NEXT VI G 
0T0 2080 

206 IF BY-3 THEN LET BY-21 LET 
BO-0 i PRINT AT 3,BX|~ "l GOTO 8» 
<900 AND ATTR ( BY . 8X>-48 ) ♦ < 207 A 
ND ATTR <BY,BX>< >40) 

287 IF BY-3 THEN PRINT AT BY.BX 
l" "I LET BO-8 

28B IF NOT NX THEN PRINT AT NY. 



• I " " 

210 NEXT X« PRINT AT Y.30|" ~| 

AT TY , 38|" "I GOTO 58 
980 LET L-INT (RND*5*1)I FOR F- 
1 TO Li LET L7-INT (RND*7*3M PR 
INT AT L7 , F-BX rCHRi 1521 NEXT Fl 
LET T-381 SOUND .081,10 
918 GOTO 287 

1080 IF ATTR (Y.X-l)-U THEN LET 
P-P-T-Yx PRINT AT Y.X-liCHR* 14 
4 I CHR t 159 i PAPER 5| INK OlAT 0. 
IOiP 

1018 IF ATTR (Y,X*1)-13 THEN LET 
M(1)»0! LET P-P-60-INT (RND-20) 
l PRINT PAPER 5t INK OlAT 0.18|P 
1828 IF ATTR (w.x»l>-12 THEN NEX 
T wl GOTO 2880 

1825 IF ATTR (Y.X-1 )-14 THEN LET 
P-P-1000! PRINT PAPER 5| INK 8t 
AT O.lOlPl PRINT AT Y.X-H" "l S 
OUND .81,5 
1038 GOTO 100 

2080 PRINT AT 2,1| OS RECORDISTA 

Sl"i FOR F-4 TO 13s PRINT AT F.2 

|R1(F-3)|R(F-3)I NEXT F 

2818 FOR F-l TO 18 

2028 IF R ( F > ( P THEN LET Rl-Fi GO 

TO 2848 

2038 NEXT fl GOTO 9000 
2848 FOR F-9 * ■ Ri STEP -H LET 
R*(F-1 >»R*(F M LET R(FM)»R(F>I 
NEXT Fl PRINT AT 21 . 2| "R.cor d I at 
a digit* »*u no*c . " i INPUT R*(R1 
M LET R ( R 1 > «P : FOR F-4 TO 131 P 
RINT AT F,?|R*(F-3) iR <F-3>» NEXT 
Fl GOTO 9808 

3080 CLS x PLOT 244.1711 DRAM -1 
.-18. 21 DRAW 2.18.31 PRINT AT 5 
,0: INK 5xB% 

3810 PRINT I PRINT INK 3|" "|CH 
R% 144xCHR% 145 

3028 PLOT 93.178X DRAU 3.-28X DR 
AU 2. iSx DRAU 2,-131 DRAU 3.201 
PRINT AT 2, 13| " A T E R" 

3830 PRINT AT 16. Ox" "|CHR% 

164i" By Alcph Publicacocs " 

3835 PRINT AT 16. Ox" <(P>) By 
Aldo Barduco Jr" 

3840 PRINT AT 21 . 0 x "Apert * uaa 1 
etra para continuin'* 

3045 IF INKEY*-"" THEN GOTO 3045 
3047 PRINT AT 21. 8|" 

3050 PRINT AT 9.0|" Controle Uat 



er coa a* teclas 5 c 8. At Ire bo 
lhas nas latas. cona tecla 0 , pa 
ra que calaa a i nho-cas .Uat er con 
segue coacr soaent equando esta d 
ols caractcres an-tes dcvido a 
sua abertura bucal" 

3068 LET 0*- "08080 10028838840850 
86007888089010011009007005001-81 
-03-85-87-89-85-8200808000288280 
80000020020050820050090078090070 
84001888-81"! FOR F-l TO LEN 0* 
STEP 31 SOUND .25.VAL 0*<F TO F* 
2)1 NEXT F 

3870 PRINT AT 20.26|CHR* 161 iCHR 
* 162|CHR* 163l" ~| INK 3|"85" 
3880 IF INKEY*-"" THEN GOTO 3880 
3090 RETURN 

9008 BRIGHT H FOR G-l TO 101 FO 
R F-0 TO 7: BORDER Ft SOUNO F/18 
O.F-G-RNDx NEXT Fl NEXT Gx BRIGH 
T Oi PRINT Mli"Apertc uaa tecla 
para o inicio 

9010 SOUND .801 .RND'RNDI IF INKE 
Y%- "" THEN GOTO 9010 
9028 GOTO 28 

9180 DATA 120,188.142.135.7,6.44 
.16 

9110 DATA 96.48.124.246.255.126. 
28.8 

9128 DATA 68.66.153.165.165.153. 
66.68 

9138 DATA 126.195.153,173.181.15 
3,195.126 

9148 DATA 0.0.16.170.69.0.0.8.8. 

0.8.51.204,8.0.8 

9150 DATA 64.166.73.9,134.32.82, 

32 

9160 DATA 16,65.12.82.18.108.144 

.104.0.8.0.0,128.183.24.0 

9178 DATA 16.8,156.118.126.156,1 

6.0. 129.60.66.189.189.66.68.129 
9188 DATA 129.126.90,165,126,36. 

24.0. 64.32.119.248.116.35. 16.8 
9198 DATA 16.34,118.248.116.34.6 

6.0. 0.60.126.135.135.134.12.24 
9208 DATA 96,48.126.247.252.224. 
126.68 

9210 DATA 82.165.128,85.164.139. 

81.42.0. 6.6.38.98.63.162.66 
9228 DATA 64.168.161.161.193.199 
.41,38.0.0.8.96.288. 184.144.96 
9230 DATA 60.66.153.161.161.153. 
66,68 
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porfm, peg^-la por trfs, farf muitos pon- 
tos. 

Ao passar dos 1000 pontos, uma pe- 
dra come^ara a cair da borda do lago e, 
se atingir Water, este perdera uma vida. 
Ao final, o programa mostrarf os recor- 
distas. Caso voce tenha batido algum re- 
corde, deverf introduzir seu nome, que 
serf exposto a admirafao publica e exal- 
ta^So generalizada! 

PARTES IMPORT ANTES 
DO PROGRAMA 

Inicialmente, explicaremos as rotinas 
mais interessantes e importantes do pro- 
grama Water e, a seguir, daremos algu- 
mas dicas de altera^Ces. 

A linha 10 faz a leitura dos DATA, 
que est2o a partir da linha 9100 e colo- 
ca seus valores na memdria do UDG re- 
defmivel pelo usuirio (dizemos “redefi- 
nivel pelo usuirio”, pois existem o UDG 
1 e o UDG 0 que o prdprio TK define). 

A linha 1 1 dimensiona R$ para que 
guarde o recorde e os recordistas. 

Na linha 30 , o primeiro PRINT exe- 
cuta uma impressate na parte inferior da 
tela, nas linhas de edi^So. 

Na Unha 50, iniciamos o movimento 
do Water, pois fazemos um LOOP de 2 
ate 3 1 e armazenamos o valor em x (que 
corresponde a coordenada x da posisao 
do peixe). Nesta mesma linha, coloca- 
mos em 0 o valor 1 , se 0 for 0, e 0, se 0 
for 1. Daqui a pouco voce verf o por- 
que. 

A linha 70 faz a leitura do teclado. 

Na linha 7 1 .verificamos se existe al- 
gum carfter de cor diferente do fundo, 
a frente de Water. Este recurso nos per- 
mite saber qual carfter esrf na dada po- 



sifao (ver da linha 1000 ate a 1025). 

Na linha 75, verificamos se Water 
mudou de linha (subiu ou desceu) e, em 
caso afirmativo, apagamos a velha posi- 
$&o que ele ocupava. 

Na linha 80, imprimimos Water e va- 
riamos sua cauda de acordo com o valor 
de 0 (veja linha 50). 

A linha 85 verifica se estamos quatro 
caracteres atrfs da piranha e, se estiver- 
mos, faz com que Water abra e feche a 
boca. Ja a linha 101 verifica se a pedra 
atingiu Water. 

Da linha 105 ate a linha 210 hd o 
movimento de todos os outros elemen- 
tos na tela e a verifica^So de se algum 
destes atingiu Water. N5o entramos em 
detalhes, poisosprocessos jd foram men- 
cionados (verifica?ao de uma posi^So no 
video, verifica^So nas prdprias variiveis 
que contem a posi$5o do Water). 

Da linha 2000 ate a 2040 hi a expo- 
si^So dos nomes recordistas, verificando 
se houve recorde batido. Em caso positi- 
vo, 6 feita a inser^&o do nome no novo 
recordista. As linhas 9000, 9010 e 9020 
s5o continua^So desta rotina (2000- 
2040), sendo apenas de recursos sonoros 
e visuais do final do programa. 

Na linha 3000, usamos recursos de 
desenho (PLOT, DRAW), para escrever 
“W” e desenhar a lua. 

Na linha 3060, guardamos, na varia- 
vel 0$, a melodia que toca durante a 
apresenta^Io. 

Na linha 3070, 6 impressa a assinatu- 
ra do autor do jogo e o ano em que foi 
feito (Aldo 85). 

As possiveis mudan^as que nflo alte- 
rariam a estrutura do programa sSo: 

Modificar as teclas para 8 e 9, ao in- 



ves de 6 e 7, seria muito interessante pa- 
ra os que possuem joystick. 

Para modificar o som do programa, 
altere a linha 95. 

Se achar que o numero inicial de vi- 
das e muito pouco, altere o FOR V=3 ... 
para FOR V=Numero de vidas inciais 
desejado... 

Nafo mude a cor do jogo, pois isto re- 
quer um conhecimento maior sobre o 
funcionamento das fun^Oes ATTR que, 
no caso, serfo totalmente alteradas (em 
termos de valores referidos aos caracte- 
res do jogo). 

Para se gravar o programa, basta dar 
o comando direto SAVE “WATER” LI- 
NE 10 e o mesmo irf entrar em auto- 
start. Se quiser gravd-lo de uma forma 
mais compacta, execute a linha 10 e de- 
pois elimine as linhas de 9100 arf o final 
e substitua a linha 10 por LOAD ““ CO- 
DE. Em seguida, grave o programa em 
duas etapas: 

1 ) SAVE “WATER” LINE 10 

2) SAVE “WATER” CODE USR “a”, 
168 

Quanto ao resto, deixamos por conta 
de sua habilidade e imagina^o. Bom di- 
vertimento! ■ 

m 



Aldo Barduco Jr. estti cursando a 8? sdrie do 
primeiro grau e 6 autodidata em BASIC e As- 
sembler. Possui um TK 85 e um TK90X. 

Pierluigi Piazzi 6 formado am Quimica e Fisi- 
ca pela USP. Foi professor do curso Anglo 
Vestibutareseji editoua revista " Microhobby . 
£ autor de vArios Uvros e atualmente dirige a 
Aleph PublicagOes. responsAvel por muitos su- 
cessos na Area editorial, dada a sua orientagio 
didAtica. 
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data buffer 



APR0VAD0 PELA SEI 

Portaria 205 de 23-08-85 



lavl informatica 

Avenlda Pavao, 346 • Indianopolis - CEP 04516 - Sao Paulo - SP 
Telefone: (Oil) 533-0120/ 533-01 12 -Telex: 22966 
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t* Rally 

Luis Maurfcio Chopard Bonilauri 



Rally/Bas 6 um jogo rdpido e emocionante, que po- 
dera diverti-lo por longas horas. Ele foi programado em 
BASIC, mis possui duas rotinas, em linguagem de ma- 
quina, para agiliza-lo e produzir som. 

Originalmente, o programa foi feito em um CP 500, 
com drive, e para rodi-lo em equipamentos com cassete 
e necessario uma modifica^o, ja que ele possui duas 
rotinas em Assembler, e o monitor BASIC residente s6 
suporta uma. A modifica^o consiste em suprimir a ro- 
tina de som, uma vez que a outra rotina serve para des- 
locar a tela, sendo por isso mais importante. Deve-se 
proceder da seguinte maneira: 

1?) Alterar a linha 80 para: 80 POKE 16526,0’JPOKE 
16527,125. 

29) Retirar as linhas 120, 130e 180. 

39) Retirar da linha 340 o trecho: FOR Y=1 TO 
5 :X=USR1(50) :NEXT. 

49) Mudar a linha 470 para 470 REM. 




Exemplo de teb do jogo. 



Luis M. C. Bonilauri tem 13 anos e, desde 1984, faz programas 
em BASIC e Assembler. Aprendeu as duas lirtguagens atrav^s de 
livros e manuais. 



20 ’» LUIS M8URICIO CHOPARD BONILAURI. RIO DC JANEIRO R.J. * 

30 '*»***#**iHI#***»*******«*««**«»*ii**»*m ««#«»«*« ■••»*•••••*•■ 

40 CLEAR 300 
50 RE=0 
*0 RANDOM 

70 A*=CHR*i 174)+CHR%< 175) +CHR%< 132 ) +CHR4 ( 26 > +STR ING% ' 3.B1+1 HK*> » 

31 )+CHR4< 131 >+CHR*< 129) 

80 DEFlBR = 32000:DfcFU‘-Rl = -8192 
90 B%=CHR% < 170) :C$=CHR%< 149) 
l 00 F =32000 

llO READ ASP0KE F,AsF=F+l«IF AO201 THEN GOTO 110 
120 F=-819i’ 

130 READ A:P0KE F , A»F=F+1 : IF A< >201 THEN GOTO 130 
140 GOSUB 400 

150 GOSUB 500sCLSsPRlN130,"»* RALLY »• MARLHAs 1 

REC0RDF:"?RE;364, STRING*! 64, 140) j 
160 P=925:M=l:I=0 

170 DAT A33. 127,63,126, 17,255.63,18.1 3. 237 , 184 , 33 , 154, 60 . 54 
,17. 155.60,1 . 14,0,237. 176,33,217.60,54,32, 17,218.60. 1 . 14.0,23’. i 

76.201 

180 DATA205, 127, 10, 77, 68, 62, 1,105, 21 1.255, 45. 32. 253 , 60. 105 , . ll 

55.45.32.253.13.16.238.175.211.255.201 
190 GOSUH 370 

200 PRINT 325*128 ,8*s341+128.C*; 

210 <=USR l 0 > 

220 IF PEEK i 15350>=64P=P+2 ELSE IF PEEK ( 1535*' > = 1 6P = P-2 
230 IF PEEK < 15360+P > > 128 OR PEEK ( 15362+P > > 128 GOTO 310 
240 PRINI3P.A4: 

250 IF PEEK < 14352 > =21 HEN Nh= 1 :PR INT326, " 1 "s : F l SE II PEEK • 14T52 •* 

4 THEN Nh=05pRINr326. ‘ 2 

260 IF RND( V >- 1 PR INT3P-768 , A<b ; 

270 1=1+1 

280 IF M-O THEN GOTO 200 
290 FOR F=1 TO 25:NEXT 
300 GOTO 200 
310 PR IN 1354, Is "Km"? 

320 PR 1NT3922.S FRINGE 15 , 128 > f 3986 . STR ING%< 15. 128 »: 

330 PRINT 3P -64, CHR%( 144> t " " J CHR% ( 1 44 ) ; 3P . CHRK 166 > si HPV 132 l s' 
HR*il45>jCHR’M132);3P + 64,CMRli< 129 > s CHR* ( 130 > J CHK 6 » 130 > sLHI * • 1. ' 1 

340 IF I>RE THEN RE = I : PR INT8760-1 28- 10 . ‘ NOVO RELORDE ' : s ' uh i-i 

TO 5 : X=USR 1 < 50 > sNE V T ELSE FOR C=i TO 300:NEXT 

350 PRINT 3898 , "TECLE <ENTER > P /" s 3965 , 'RF LOME! AR ; 

360 IF PEEK < 1 5350 ) =0 THEN 360 ELSE GOTO 150 

370 FOR F=2 10 15 STEP 2 sPR INT3F*64 +25 . l.HRS ' 1 7 0 s 31 *64 ♦ 4 i MlkVl 
49) * sNEXT SPRINT3P , AS? 

380 FOR F=0 TO 20:PR IN T354 , "ATENCAO ?:FOR 1 = 1 35 SHE X l 5 PR INI35 

4 .STRING* ( 7 , 128 > s *F0R T = 1 TO 34:NEXT:NEXI 
390 RETURN 

400 CLStPRINI 323 , • RALLY » *" s 38/ . STR l NI.V tv . ’ . 

410 PR INT sPR INT sPR INT" Dlrija sen carro a i*i .la di- Rally, 

mas cuidado com os ou-tros cuncorrentcs 1 sPRIHT 

420 PRINT" Use < e > para mov I luent ar seu raric*. e I c pai « • n 
gaiar a primeira ou segunda march*, r e .!•* • I 'in n • • . 'tPRINI 

430 PRINT" BOA SORTEMI" 

440 PRINT SPRINT SPRINT" Por s Luis Mauricio l .«r *J F.iiitauri 
450 PRINT3977. "TECLE < ENTER > PARA COMELAR A |"I1 TI'h s 
460 F=30 

470 X=USRl(3O03O+F>sF=F+10:IF F=150 THEN I lo 
480 IF PEEK < 15350 > =0 THEN 470 
490 RETURN 

500 CLSsPR INT3519, "Qua 1 o mvel (dificlls- | • : l.lill ' 

510 IF V >21 OR V< 5 THEN 500 
520 RETURN 
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O UNITRON REVELA 
O SEU SEGREDO: 




MODULARI DADE 



Quem compra um micro esta investindo no 
presente e no futuro. Por isso o equipamen- 
to deve acompanhar a evolupao das neces- 
sidades e aplicapoes do usuario. Atraves 
dos seus oito slots (parte superior da foto), 
o UNITRON APII permite a expansao do 
equipamento na medida em que crescem 
as necessidades e de acordo com as eco- 
nomias de cada um. 

Voce pode comepar comprando um UNI- 
TRON APII e liga-lo na TV (P&B ou cores). De- 
pois pode acrescentar disk-drives, impres- 
sora, monitor profissional, placaZ-80 para 
CP/M, placa 80 colunas, interface de co- 



municapoes, etc., etc. Voce pode tambem 
aumentar a memoria do seu micro com pla- 
cas de 1 6, 32, 64 ou 1 28K. Tudo isto de mo- 
do bastante simples, com manuais em por- 
tugues e facil instalapao. Quanto ao softwa- 
re, voce dispoe de programas como o VI- 
SICALC, DBASE, WORD STAR e milharesde 
outros best-sellers, desenvolvidos para o 
"APPLE 11+ ” norte-americano. Essa modu- 
laridade e riqueza de software e que fazem 
do UNITRON APII o micro mais vendido pa- 
ra empresas, profissionais liberais e fami lias 
inteligentes. Fique com o melhor. 

Fique com o UNITRON APII. 



O MELHOR CONJUNTO 

UNITRON APII, MONITOR COMPO, DRIVE ELEBRA, 
IMPRESSORA MONICA E INTERFACES. 



O MAIOR REVENDEDOR UNITRON DE TODO O PAIS 

RUA SETE DE SETEMBRO, 99-11.° ANDAR 
TEL.. PABX (021) 224-7007 - CEP 20050 - RIO DE JANEIRO - RJ 

AV. PAULISTA, 726 - 5? ANDAR - CONJ. 506 
TEL: (Oil) 288-4492 - CEP 01362 - SAO PAULO - SP 



INF0RMAT1CA EMPRESARIAL LTDA 






zx81 zx81 zx81 zx8 



B 

William Tadao Tanji 



Micro-golf 



0 golf 6 urn esporte que depende de calma, habilidade, pa- 
ciencia e muita concentragSo, para efetuar as tacadas. 0 Micro- 
golf exige do jogador controle absoluto a cada lance, o que se- 
ra feito por intermedio de um boneco bem humorado. 

Este boneco estard sempre esperando que o jogador se ma- 
nifeste, aprovando as tacadas corretas e reprovando, com iro- 
nia, as aventuras falhas. Para dar a intensidade da tacada, basta 
apertar qualquer tecla, exceto STOP. Quanto maior o tempo 
de pressSo, maior a intensidade. Porem, se o tempo for longo 
demais, a intensidade volta a zero. 

Agora, 6 s6 apertar RUN... e boa sorte. 



William Tadao Tanji 4 formado pela Escola T4cnica Senai Sufgo-Brasilei- 
ra, de Sao Paulo, am Mecanica da Precisao. Atualmenta astuda no Insti- 
tuto da Entino de Engenharia Paulista. Tam a microcomputagao como 
hobby, tando usuSrio de um CP-200. 



Tacada especial 



O Centro de Processamento de Dados da revista MICRO 
SISTEMAS oferece, neste quadro, algumas sugestdes do lei- 
tor, visando possi'veis modificagoes no programa: 

Substitua as linhas 1 10 at6 1 12 pelas linhas abaixo. Assim, 
voce tera no video a visualizagao da intensidade na tacada. 

165 LET A4-INKEY* 

166 LET I-1+.5 

167 PLOT 1*2+11 .32 

168 IF 1-21 THEN LET 1-6 

169 IF 1-6 THEN PRINT AT 5.5sB* 

TO 22) 

Acrescentando ainda esta linha (a seguir), voce obtera o 
movimento do taco: 

125 PRINT AT 14. 3»~ "sCHR* 134» 

TAB 2|" "»CHR* 7 | TAB lr" 

CHR* 7 1 CHR $ 129»TAB li" ">CHR* 

6«CHRS 6sCHRS 6»CHR* 4;CHR« 4;T 
AS 4 1 CHR* 130f CHR* 6 1 CHR* 136|CH 
R* 2 



1 P >JN 4 

2 spue gf- 

A FAST 

5 LET 50*0 

6 LET T=6C 

7 LET X* = " ” 

S FOP h=i TO 10 
9 LET >*=x* + >$ 

10 NEXT K 

11 _ET X*=Xft TO 704* 

12 CL 3 

13 FOP K =0 TO 31 

14 IF K < 19 THEN LET XS <K*32+32 
) =CHP* 133 

15 IF K (13 THEN LET x* *r*32+l 
=CHP 5 5 

16 _ET x**K+i =CHR 3 133 

17 lE t X S ‘ 6-2+K + l) =CHRS 135 
IS LET ;■ l 640+K+l) =CHRS 135 
IS lET XS S06+K+1 i =CHRS 135 

20 NEXT K 

^21 lE t <$ 11 TO 22? e 

22 LET >*.400 TO 411* = TENTPTI 

uas = 

23 i_ET * S 341 TO 3471 = 'SCORE = 

24 lET X* <553* =CHP* A 
a 2S LET BS = ” m 

30 SLOW 

40 LET EsINT i RND+1B * +10 
50 PRINT hT 0 , 0, XS. AT 19 .5 
.AT 12 .26, T AT 10,26. SC 
55 IF T< 0 THEN GOTO 35 
60 PRINT AT 2 2, •' IN5TPUCQE5 * 
tS 'NI- 
SI lET AjsINKEv * 

62 IF AS*" ‘‘ THEN GOTO 61 

63 IF A*="N" THEN GOTO 35 
70 POKE 16413 0 

75 lET As* "PARA DAP A INTENsID 
ADE DA TACADA . EASTS APERTAR QUA 

louep tecla exceto 3 a. quanto ha 

IOP 0 TEHPO DE PRES SAO . HAIQP SE 
PA A INTENSIDADE da tacada. ha; 
PL* ID ADO . SE 0 TEHPO DE PRESsAO - 
OP MU IT 0 LONC-O A INTENSIDADE VO 

lta a zero comecando tudo de no 

yo . . . BOA PAPTIDA . " 

76 wET A* =6 S -A 5 + B 5 

81 FOP K*1 TO LEN AS-31 

82 PRINT AT 23 0.A$‘K TO K+ul 

83 NEXT K 

34 POKE 16413 2 

35 .ET ES=ES TO £3' 

36 LE' r A =0 

8T G05UB 1000 

40 PRINT AT 2 2. DE AGORA A _N 

tensidade" 

as _ET 1=0 



98 IF INT (PNC *4 1=0 THEN PRINT 
at 8.4. CHRS 133+CHR S 123+CHRS 1 
2S+CHPS 5 AT 8.4; CHPS 133+CHRS i 
29+CHP* 130+CHPS 5 

9* I c INT <RND*5‘ =0 THEN G05UB 
1033 „ „ 

100 PRINT AT ' 5. CHPS 130+CHPS 
122 A- 3 4 CHPS 133+CHRS 129+CHP 
S 130+CHRS 5, AT 9,5 CHRS 132+CHP 

102 IF INKE S=" THEN GOTO 93 

110 LET AS=INKE'$ 

111 let 1=1+ . 5 

112 if 1=21 THEN let 1=0 

113 IF AS ( THEN GOTO 105 

114 SLOU 

115 PRINT AT 2,2, BS 
120 GOSUB 1000 

130 FOR K =16 TO 16 + 1+2 

140 CLOT K 6 

141 UNPLOT 7. ,'6 

142 NEXT K 

143 PLOT K , 6 
145 LET G=K 2 

IF© IF G=B+ . 5 OR B=G THEN GOTO 
2000 

155 GOSUB 3000 „ _ 

160 PRINT AT 2 2 ERPOU. . VO'-E E 
GROSSO HE5H0 . . " 

'200 PRINT AT 4,2. "DE NOVO ? <S 

N) " 

210 LET AS = IN*\EY$ 

= 1F IF INT i R nD *6 =0 THEN PRINT 
A~'s 5 ChPs 131 AT 9. 6. CHRS 7 

215 IF INT IPND*4>=0 THEN PR InT 
AT 3 6 . CHR* 123+ChRS 4 , AT 3 6 C 

HRS 129+CHPS 4 
217 LE' r c = int PND + 10* 

216 IF C=0 " r HEN GOSUE 1030 

»1« IF C=0 THEN GOSUE 1033 
22 0 IF A S = THEN GOTO 210 

230 IF A $ = N THEN GOTO 240 

231 _ET T =T + 1 
235 GOTO 25 

240 PRINT AT 0 0 XS 

250 PRI NT A- I Q . 12 "COUARDE A~ 

10 . 12 a— wrtdbfca 

260 GOTO 250 

1000 GOSUE 1030 __ 

leoi print at 10,4 -mm at li 

4 I I 

1005 I- A=0 THEN GOTO 1020 

1006 GOTO 1033 

1010 PRINT AT 12.4 AT lu 

4 V AT 14 3 " +CHPS 129+CH 
PS 135 AT 15.2 "+CHPS 123+ 

♦ CHPS 5 AT 16 1," " +CHP $ 125 

-• +ChP$ 5 AT 17.1 +CHRS 5 

-Ch=s 133+ +CmP$ 5 AT 16.4 ChP 
$ _30+CHPS 133+ CHPS 4+CHRS 130 



1015 cETuPn 

1020 PRINT AT 12 , 4 | it** AT 13 

4 ; 'If* AT 14 3 f »-",AT 15,2 
.* h AT 16 1 f I I". AT 17.1. 

• | +CHRS 2+CHPS 4 AT 13,4. CH 

PS 135+ | " +CHP S 4+CHPS 129 
1025 LET A=1 
1028 RETURN 

1030 PRINT AT 7 5. CHRS 130+CHPS 
129. AT S 4 CHPS 133+CHPS 129+CHP 
S 130+CHPS 5 AT 9. 5, CHPS 132+CHR 

S 7 

1031 RETURN „ „ 

1033 PRINT AT 7 5. CHRS 12x+lHP$ 
4, AT 3,5 CHRS 128+CHPS 129+CHPS 
4, AT 2.5 CHPS 132+CHRS 7 

1035 RETURN 

1040 PRINT AT ~ 5 CHRS 135+CHR* 

130 AT 2 4 CHPS 135+CHPS 130+CtP 

$ 123 AT 9 5. CHRS 132+CHRS 7 
1045 RETURN „ 

10F0 PRINT AT 7 5. CHRS 13 1 + ChP S_ 

131 AT 3 4 CHRS 133+CHPS 132+CHP 
S 7+CHRS 5. AT 2,5. CHPS 123+CHPS 



123 

1055 


PET URN 


2000 


PRINT RT 9,5, ( 


131 

2005 


UNPlOT K . 6 


2006 


FOP L = 1 TO 5 


2007 


PLOT K . 4 


2008 


UNPLOT K , 4 


2009 


PLOT K,5 


2010 


UNPlOT K 3 


2015 


PLOT K.,4 


2020 


ne*t l 


2021 


FQP K*I TO 5 


2022 


r- ext k 


2025 


GGSuB 3020 


2030 


PRINT hT 2,2. 


FhCS 


DE NOVG." 


2035 


_ET 5C=6C+i 


2040 


GCTO 200 


3000 


=0P K. = 1 TO 10 


3001 


.£ XT K 


300G 


r 0P L =1 T0 2 


300- 


* 3UB 1030 


300* 


. SUB 1040 


300 


: 5UB 1030 


30v 


j .<5UB 1033 


300 = 


next l 


3010 


RETURN 


3020 


FOR L=1 ' r 0 4 


3025 


G05UB 1050 


3 0 C 


GOSUB 1030 


3035 


riEVT w 


3036 


GOSUB 10:: 


3040 


RETURN 



, 2 . "PUPA SORTE . . . 






Micro-golfe 
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SEKUIQCS 



APPLE 

SOFT? 

Venha para o clube 
diferente de Apple 

“MAGIC 

WORLD 

CLUB” 

Escreva para n6s e 
tenha uma 
apple surpresa. 

Caixa Postal 62521. 
CEP 01150 
Tel.: (011)664316 
Sao Paulo-SP 

UTILIZE 

ESTE 

ESPAQO! 

A MICRO SISTEMAS 
oferece a seus 
clientes este servigo 
especial. 

Com esta opgao de 
espago e custo, 
ninguem vai deixar de 
anunciar. 

Consulte-nos pelo 
telefone 262-6306 
!£ (Departamento de 
[0 Publicidade), com a 
JJ Srta. Nilce ou 
y) (011)853-3800, coma 
l/l Srta. Vera. 




Um CLUBE MUITO ESPECIAL 
Para usuarios dos equipamenlos 
TK-85. TK90X. CP-400. CP-500 
e compativeLs 

( soel ✓>* » 7 * ^ ) 



(loll /<" ) 

^ <0 , 



X\*- f iUU tL L 

■ smm b :' < 




NOVA FASl 1986 
VOCf RfCtBE, INTtIRAMENTE 
» CRATIS: 

— Um curso completo de BASIC. 

— Edi^fte* Mensais do Compudub 
News, com programas de (Ogo». 
aplicalivos e dicas espedais para o 
seu equipamento. 

— A cada 45 dias, programas 

amplamenle documentados. com 
seus manuals de mstrufio. 
gravados em fiu HOT LINE, a 
melhor op^io para o seu acervo de 
softs. 

E AINDA CANHA O DIREITO DE 
ADQUIRIR. PELO MENOR PR ECO DO 
MERCADO, MICROS, 

SUPRIMENTOS E ACESSORIOS. 

Associando-se agora. voc6 amda 
recebe os S bolelins )a edilados pelo 
dube, induindo o especial 
dezembro/85. 

Solidte. ainda ho|e, informa<,6es 
detalhadas acerca de como partidpar 
do COMPUCLUB N4o se esque^a. 
portm, de indicar olipode micro que 
voc6 possui . 

COMPUCLUB — Caixa Postal 46 (36570) Vi^ow-MG 



mo. sen. , a»i9 



CURS0S 
DISP0NIUEIS 



Introdugdo 6 Microcomputogdo 
DOS - PC "Sistemo Operocionol " 
UNIX "Sistemo Operocionol 
LINGUAGEM C " Ling Progromogdo ' 
dBASE II "Progromogdo Ddsico” 
dDASE II "ProgromoDdo Avongodo 



dDASE III "Progromogdo Ddsico” 
LOTUS 1 -2-3 "Plon. Eletrdnico” 
Framework "Sistemo Integrodo" 
Symphony "Sistemo Integrodo" 
WDidstar "FVocessodor de Texto” 
Em desenvolvimenio 



MATERIAIS DIDATICOS: Publicogdes T^cnicos desenvolvidos em 

Portuquds 

DECURSOS DIDATICOS: Conceitos e exemplos prdticos. otrov^s de 
Micros e Teldo de 72”. 

CUDSOS FECHADOS E ADEDTOS 



NOVO ENDEDECO Duo Groeldndio 1 750 Jordim Europo 
CEP 01434 - Sdo Poulo - SP 
Telefones 881 -45<?9 881 4032 




BASIC e 


COBOL 


CURSOS DEL 


.TA/DATA RIO 1 


• Turmas as 2? s e 4? s , 

• Micrcx:omputadores ( 

• Plantao de duvidas. 

• Prepos promocionais 

• Apostilas e certificad 

• "Clube do Micro" 3s 
6 todo seu : 


3? s e 5? s e aos sabados. 
2P-500 da Prologica. 

parcelados. 

0 de conclusao. 

6^ s onde o CP-500 



Rua Machado Bitencourt, 278 (011) 549-9811 S. Paulo — SP 
Rua Voluntaries da P^tria, 286 - 29 (021) 286-4740 - 
R. de Janeiro - RJ 



FORMULARIOS 

CONTINUOS 

• Diskettes, Mini Diskettes 

• Formul£rios Oficiais 

• Fitas ppara Impressoras 

• Fitas Magn6ticas 

• Etiquetas Auto-colantes 

• Arquivos para Diskettes 

• Pastas para Formul6rios 

ATENDIMENTO 

IMEDIATO 

E PRONTA ENTREGA 

Rua Antonio das Chagas, 180 
CEP 04714 — Sao Paulo-SP 
Tels.: 548-7137 e 523-8563 



FORMULARIOS E REPRESERTAQOES LIDA. 



ALBAMAR 

ELE TRONIC A LTDA. 



FITAS CASSETES 
TAMANHOS 

C5 CIO Cl 5 C20 
C30 e outros 



•FITAS 

magn£ticas 

1 200 e 2400 p<§s 

• VHS — BETAMAX 

De T5 a T120 
• DISKETTES 
5 1/4 e 8" 



Rua Conde de Leopoldma, 
270-A Sflo Crist6v8o — R.J. 
Tels.: (021) 580-6729 
580-8276 



O "PACOTAO” OFERECE: 



Software 



> 

l©®, 




• Assistencia T6cnica 
IBM/PC, XT e AT 

• Suprimentos 

• Acessdrios Perif6ricos 

CONSULTE 
NOSSOS PREQOS! 

LIGUE JA! 

(011)276.8988 



’’DAlA^OAD 

Ruo luiz Go6s, 1 894 — Sdo Paulo 
CEP 04043 -Telex: (01 1)37755 DTRD 












Crie seus proprios jogos e movimente figuras em alta resolugao, 
nos micros da linha Apple, utilizando as rotinas da ROM. 



Alta resolucao 
em Assembler (I) 

Evandro Mascarenhas de Oliveira 



D e maneira analoga ao publicado em MS n? 27, serSo 
discutidos os aspectos ligados ao uso das sub-rotinas 
da ROM e endere^os da pdgina zero para a gera^So e 
movimentasSo de figuras em alta resolu 9 §o grdfica, 
utilizando a linguagem de m&quina do microprocessador 6502. 

A alta resolu^So grdfica ocupa duas paginas de 8 Kb da me- 
moria de video, indo a pdgina 1 do endere 90 S 2000 ao ende- 
re 90 J3FFF e a prigina 2 do endere 90 $4000 ao endere 90 
$5FFF. 

A pagina do modo texto 6 constituida por 24 linhas e 40 
colunas, tendo como unidade grafica a matriz de 7 colunas por 
8 linhas. Em modo grdfico de alta resolu 9 ao, esta matriz 6 dis- 
tribuida nas 24 linhas e 40 colunas resultando em 24 x 8 = 192 
linhas em modo grafico completo, ou 20 x 8 = 160 linhas em 
modo gr£fico/texto e 40 x 7 = 280 colunas, num total de 280 
x 192 = 53760 pontos. 

Para diminuir a quantidade da memdria de video, relativa 
aos 53760 pontos, adotou-se um byte de 7 bits (o oitavo bit 
serve para controle da cor) para unidade grdfica por linha, fi- 
cando os 280 pontos em cada linha referenciados por 280/7 
= 40 bytes ou endere 90 S, havendo no total das linhas 192 x 
40 = 7680 endere 90 S (os 512 endere 90 s restantes nSo utiliza- 
dos na memdria de video dSo o total de 8192 bytes ou 8 Kb 
por p4gina). 

Quando um bit tern o valor 1, acende um ponto na tela; 
e quando tern o valor 0, mant^m-se apagado. Se um determi- 
nado byte na memdria de video, por exemplo, tern o valor 
$73 (bin£rio 01 1 10011), ter-se-£ cinco pontos com nivel alto 
- portanto, acesos - e dois com nivel baixo - apagados - que 
se apresentam de maneira reversa ao bin£rio (figura 1). 

A determina 9 So da posi 9 §o de um ponto luminoso e a p4gi- 
na da memoria de video onde estd sendo exibido, estSo rela- 
cionadas is seguintes sub-rotinas e endere 90 S da pigina zero: 
1 - HPOSN : Sub-rotina com inicio em $ F4 1 1 , di a posi 9 §o 
inicial da linha para o ponto de coordenadas C (coluna) e L (li- 
nha), sendo que: 

C - Varia de 0 a 279($00 a $ 1 17), cujos valores neces- 
sitam ser referidos por dois endere 90 S, LSB e MSB, respectiva- 



mente, byte menos significativo e byte mais significativo. 

L - Varia de 0 a 1 9 1( $ 00 a $BF), bastando um sd en- 
dere 90 para ser referenciada. 

Carregando o acumulador com o valor da linha, o registra- 
dor X com o LSB e o registrador Y com o MSB da coluna, 
ter-se-i o endere 90 inicial da linha nos endere 9 os $27(MSB)e 
$26(LSB), designados, respectivamente,por HBASHe HBASL. 

2 — HNDX: Representado pelo endere 90 $E5, e o numero 
de bytes a ser adicionado ao endereco inicial da Unha. Indica 
ainda a parte inteira da coordenada (coluna) dividida por sete. 

3 — HP AG: Dado pelo endere 90 $E6, mostra a pigina da 
memdria de video onde estd sendo exibido o ponto. Tern o va- 
lor $20, se for pigina 1 ; e $40, caso seja pagina 2. 

4 - HMASK: Colocado no endere 90 $30, indica a pos^io 
do bit ligado (valor 1) dentro do byte das colunas de 0 a 279. 
O byte zero, representative das colunas de 0 a 6 (7 colunas), 




Figura l - Hexadecimal 73 e seu respective ? binario em algum enderego 
da memdria, aUm de sua referenda na memdria de video. 
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NA CLAPPY, 
CRAFT II PIUS 
E CRAFT-XT 
COM3 



EXCLUSIV0S. 








CRAFT-1 



PC 16 bits IBM 

compativel. Memdria 
RAM de 256 
expandivel ate 640 

kbytes. Opera em tempo 

real. 2 drives de 5 1/4 
de 340 kbytes cada ou 
Hriup de 5' 1/4 de 340 



kbytes e ate 2 discos 
rigidos Winchester de 
10 Mbytes cada. Tecla- 
do de 85 teclas com 

microprocessador. 

Monitor monocromatico 

de 12”, com tela verde 




CPU com teclado 
numerico reduzido. 
Monitor profissional 
Compo (24 MHz). 

Interface e drive 5 1/4 . 

32 funqoes pre-pro- 



gramadas e 10 funqoes 
programaveis. Sistema 
Ivanita (geraqao de 
caracteres em portu-^ 
gues). Conectores ba- 
nhados a ouro. 



Na Clappy, o Craft II Plus e o Craft-XT 
ainda tern 3 software exclusivos: 
o atendimento especializado, 
a assistencia tecnica perfeita e as 
melhores condigoes de prego 
e pagamento da cidade. 

Passe na Clappy e faga um teste 
sem compromisso. Voce vai ver como o 
Craft II Plus e o Craft-XT sao altamente 
compatfveis com voce. 



^ A^FCR0CO41PU14 DOPES LTD4. 

Clsppy 

O lado gente da maquina 



Centro: A v. Rio Branco, 12 - loja e sobreloja 
Tel.: (021) 253-3395 
Copacabana: Rua Pompeu Loureiro, 99 

Tels.: (021) 236-7175/257-4398 

Visite nossas lojas ou solicite a visita de um representante. 



UOIN3S 





ALTA RESOLUgAO EM ASSEMBLER (I) 



tem os valores lidos do endereso S30, conforme a figura 2. 

Estes valores se repetem para todos os 40 bytes de cada li- 
nha (byte $00 ao byte $27), na mesma seqiiencia. 



. 


BITS EM POSICAO RZVEBSA 


I 

§ 

3 


0 


1 


2 


3 


4 


5 


4 


7 


0 


1 


0 


0 


0 


0 


0 


0 


1 


• 


1 


1 


0 


1 


0 


0 


0 


0 


0 


1 


a 


2 


2 


0 


0 


1 


0 


0 


0 


0 


I 


§ 


4 


3 


0 


0 


0 


1 


0 


0 


0 


1 


• 


§ 


4 


0 


0 


0 


0 


1 


0 


0 


1 


f 


0 


5 


0 


D 


0 


0 


0 


1 


0 


1 


A 


0 


6 


0 


0 


0 


0 


0 


0 


1 


I 


C 


0 




LSB 


MSB 


MSB 


LSB 



Figura 2 - Tabela 
de valores do endereco 
S SO para o byte zero, 
relativo ds cobinas de 0 a 6. 
O bindrio A lido da 
direita para a esquerda. 



O programa a seguir exibe na tela de video, pagina 1, o va- 
lor 2000 para o endere90 do ponto com coordenadas C = 3 e 
L = 0 (MSB = 20, enderego $27 e LBS = 00, enderego $26) o 
valor 0 para o enderego $E5 (parte inteira de 3/7 = 0, portan- 
to, byte $00) e o valor 88 no enderego $30. 



0300* | 

0300120 5© FC 2 

0303 i A9 20 3 

0303* 03 E6 4 

0367* A9 OO 3 

0309 l A2 07 6 

0700 1 AO 00 7 

0300120 It F4 0 

0310* AS 27 9 

0312120 DA FD 10 

• 31 Si AS 2 <» II 

0317*20 DA FD 12 

031 A t AS Aii j - 

0310 20 ED FD 14 

031F4A6 E*3 13 

0321*20 DA FD lfc 

63241 A9 *t> 1 7 

0726*20 ED FD 10 

0*29»A3 70 19 

072*1 2*> (W* FD 20 

032E*6« 21 



ORG t^Too 
JSR §FC38 
LDrt 9*20 
STA §E6 
l DA 4400 
i D* *403 
LDV »too 
J5A §F4 1 1 
LDA 927 
JSR tFDOA 
LDA §26 
JSR tFDOA 
LDA ttAi* 
JSR tFOCO 
LDA tLS 
J5A tF PDA 
LDA •§♦» 
JSR tFDED 
t DA 436 
JSR tFDDA 
RtS 



I O*D€REC0 INICIAL DO FROGKANA 
•LIMPA A TELA DC TE :T0 
« 

tPAGlMA 1 DA ALTA RESOL UC AO GRAF ICA 
*1. INHA 0 

*L5f> DA COL UNA 3 
JHS6 DA COL UNA 3 
I SUB -ROT I NA HPOSN 
t 

IEX1BE NA TELA 0 W5*-20 
I 

tEMDE NA TELA O 156-0. DANDO 0 END. 
* 1NICIAL §2000 

* COL OCA ESFACO NA TELA DC VIDEO 
* EX 1 1C NUMEFO DC BYTES A SCR 
IAD1 CIONAOO AO END. INICIAl 42006 

» COL OCA ESFACO NA TELA DE VIDEO 
*EX|E€ 0 VALOR §80 CON 0 BIT 
ILIGADO NA COL UNA 2 « TABELA I > 



5 - HCLR: Sub-rotina com inicio em $F3F2, limpa a pdgi- 
na de acordo com o valor em $E6. 

6 — HGR: Sub-rotina com inicio em $F3E2, limpa a pagina 
1 e coloca a tela em modo misto grdfico/texto. 

7 - HGR2: Sub-rotina com inicio em $F3D8, limpa a pi- 
gina 2 e coloca a tela em modo grdfico completo {full screen). 

8 - BKGND: Sub-rotina com inicio em $F3F4, gera o fun- 
do com a cor nos enderegos $ 1C ou $ E4. 

0 programa seguinte coloca a tela em modo misto, pigina 
1, limpa a drea de texto e coloca o fundo com a cor branca: 



1 

0360*20 SB FC 2 
6367*20 E2 F7 3 
6366* A9 ff 4 
636083 E4 3 
"•oAirO 1*4 FT s 
07001 6<> 7 



ORG §0300 
JSR §FC3B 
JSR §F3E2 
LDA «§FF 
STA §E4 
JSR §F7F 4 
RTS 



iENDEPECO INICIAL DO PROGRAM* 
* 1.1 MPA A TELA DE TEXTO 
* 51 16-ROT INA MGR 
t 

I COR BRANCA 

•□ERA 0 FUNDO CON A COR PRANCA 



O programa a seguir coloca a tela em modo gr&fico total, 
pdgina 2, tendo o fundo com a cor violeta: 



1 

0306*20 DR FT 2 
ATA3»A9 33 3 
6369*^9 IT 4 
0307:20 F4 rz 3 
036A« 60 6 



ORG §360 
JSR §F3D0 
LDA §§33 
STA 91C 
JSR 9F3F4 
RTS 



xENDERECO INICIAL DO PROGRAMA 

l SUB-ROT INA HGR 7 
I 

i COR VIOLETA 

X GERA 0 FUNDO CON A COR VIOL rT A 



9 - HP LOT : Sub-rotina com inicio em $F457, plota um 
ponto com as coordenadas C e L e a cor nos enderegos $ 1C ou 
$E4. O registrador A fica com o valor da linha, o registrador Y 
com o MSB da coluna e o registrador X com o LSB da coluna. 

O programa a seguir plota um ponto na linha 80 e na coluna 
140, com a cor violeta: 



03661 1 

A3iV>»2o SB FC 2 

•V367* 70 F2 F3 
6360**9 SS 4 

6369* Q3 1C 3 

O30ASA9 V* t> 

0360 AT 8C 7 

OTOE x AO OO B 

0310*26 37 F4 9 

: * . ■ |0 



ORG §6360 
JSR 9FC38 
JSR §F7£2 
LDA §§33 

* I 

LDA §§3* > 
LDX §§©C 
LDV §§60 
JSR §F457 
RTS 



xENDERECO INICIAL DO FROGAAHA 
XLINPA A TELA DE TE<TO 

* SUB-ROT I NA HGR 
I 

x COR VIOLETA 
tLlt*4A 06 

* LSB DA COLUNA |40 
XNSE DA COLUNA 140 
iPLOTA PONTO EN 146.60 



10 - HLIN: Sub-rotina com inicio em $F53A, traga uma li- 
nha do mais recente ponto plotado ao ponto de coordenadas C 
e L. 0 acumulador leva o LSB da coluna, o registrador X, o 
MSB da coluna e o registrador Y com o valor da linha. 

1 1 - HFIND: Sub-rotina com inicio em $F5CB, dd a posi- 
$do do cursor, sendo a coordenada horizontal indicada em 
$EO(LSB) e $E1(MSB) e a vertical em $E2. 

0 programa seguinte coloca o fundo com a cor azul e plota 
uma linha obliqua entre os pontos de coordenadas 0,191 e 
279,0: 



o3<h.i 1 

0360X20 D6 F3 2 

0303»A9 D3 3 

0300*89 E4 4 

6707*20 F4 F3 3 

630AtA9 FF t» 

030C*83 E4 7 

030C * A9 BF B 

07 I 01 A2 06 9 

03 12* AO 06 IO 

6714*20 37 F4 II 

0317*69 17 12 

0319* AT 01 13 

• 00 14 

0310*20 3A F3 13 

0320*66 16 



ORG §0300 
JSR 9F3D6 
LDA §§D3 
STA §E4 
JSR 9F7-F 4 
LDA liFF 
STA §€4 
LDA §§BF 
LDX 6460 
LDV §§Om 
JSR 9F437 
LDA «§17 
LDX 4461 
LDV 4400 
JSR 9F33A 
RTS 



xENDERECO INICIAL DO PROGRAM 
l SUB-ROTINA HGRZ 

i COR AZUL 

i GERA 0 FUNDO CON A COR AZUL 

x COR BRANCA 
XL INNA 1 9 1 
t LSB DA COLUNA O 
tNSB DA COLUNA 6 
tFLOTA PONTO EN O. I9| 
t LSB DA COLUNA 279 
XNSP DA COLUNA 279 
xLI*HA C 

x PLOTA LINHA DE 0.191 A 274 



Na Figura 3, podemos ver um quadra com os endere90S da 
pdgina zero e as sub-rotinas empregadas na geragSo de figuras 
em alta resolugSo, exceto a tabela de forma, que serd analisada 
na segunda parte deste artigo. 



Evandro Mascarenhes de Oliveira 6 MAdico e vem desenvolvendo suas 
atividadas nas Areas de Laboratdrio Ch'nico e InstrumentagSo MAdica. 
Trabalhou quatro aoos com o computador Burroughs 6700 do Nticleo 
de Computagao Eletrdnica da UFRJ, nas linguagens FORTRAN IV e 
ALGOL. E usuArio dos micros NE-Z8000 a AP II. 



DESIGNAgAO 


ENDERECO 


ACUMULADOR 


REG X 


REG Y 


OBSERVAgOES 


HPAG 


$E6 


- 






Paq. 1= $20 - paq. 2= $40 


HNDX 


$E5 


- 


- 




INT (C/7) 


HMASK 


$30 


- 


_ 


_ 




HBASH 


$27 






. 


MSB do endereco inicial da linha 


HBASL 


$26 


— 






LSB do endereco inicial da linha 


HPOSN 


$F4 1 1 


LINHA 


LSB COLUNA 


MSB COLUNA 


Endereco inicial da linha 


HCLR 


SF3F2 








Limpa paq. de acordo com SE6 


HGR 


$F3E2 


- 


_ 


_ 


Tela mista texto-qraf ico paq.1 


HGR2 


SF3D8 








Tela total orafica oaa. 2 


BKGND 


$F3F4 


- 


- 




Fundo com a cor em $1C ou $E4 


HP LOT 


SF457 


LINHA 


LSB COLUNA 


MSB COLUNA 


Plota ponto: cor em SIC ou $E4 


HLIN 


SF53A 


LSB COLUNA 


MSB COLUNA 


LINHA 


Plota linha; cor em $1C ou $E4 


HFIND 


$F5CB 


- 


- 


- 


„ i $E0 (LSB) 

Honz. } SE1 ( MSB ) Vert. $E2 



Figura 3 - 
Quodro de 
enderegos da 
pdgina zero e 
sub-rotinas 
para a 
geragdo de 
figuras em 
alta resolugao 
grdfica. 
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LOTUS 

12 3 



Guia do Usuario 




BARAS, E. M.. Lotus 

1-2-3: Guia do UsuArio, Editors 

McGraw-Hill. 



Este A um livro bastante didd- 
tico e possui como objetivo prin- 
cipal ensinar atravgs da pr£tica. 
Assim, o leitor aprende coman- 
dos, conceitos e t6cnicas do Lotus 
1-2-3 atrav6s de aplicagdes, ou se- 
ja. a cada capftulo ele acompanha 



o desenvolvimento de uma aplica- 
gao, onde todos os comandos e 
conceitos sao explicados. Este 
processo A bem eficaz, pois as t6c- 
nicas de desenvolvimento encon- 
tradas no livro aplicam-se a quase 
tudo que se pode fazer com este 
software. 

A obra foi dividida em tr£s 
partes principais: Introdugao aos 
Grdficos e a Planilha de Trabalho; 
Fungoes de Bancos de Dados e 
Aplicagoes e M6todos Avangados. 
Os capi'tulos iniciais introduzem o 
leitor no assunto, apresentando as 
v£rias utilizagoes do Lotus 1-2-3. 
Desta forma, A possivel que um 
leitor inexperiente possa entende- 
k>. 

Ainda sobre o mesmo tema, a 
McGraw-Hill possui o Guia do 
Operador, que traz em apenas 22 
p£ginas os comandos bdsicos do 
1-2-3. 



COL ETTA, P., Jogos GrAficos 
para o Apple, Editors 
Campus. 

Em sua primeira parte, este li- 
vro traz explicagdes sobre tabelas 
de som e forma do Apple II e 
apresenta uma rotina de som e um 



conjunto de caracteres alfanum^- 
ricos necessdrios para a operagao 
de cada jogo. Na segunda parte, 
sao apresentados dez jogos acom- 
panhados de uma listagem. Todos 
os jogos, que utilizam grSficos co- 
loridos em alta resolugao, apre- 
sentam, ainda, uma lista das va- 
riaveis, os controles necessirios 
para sua operagao e uma descri- 
gao da Idgica. AI6m disso, o autor 
d3 sugestoes que permitem ao lei- 
tor incrementar seus jogos atravfe 
das rotinas de som e de cor. 



Ml RSHAWKA, V. JR.. 
MIRSHAWKA, S„ Jogos e 
Desenhos no TK90X, Editors 
Nobel. 

Para utilizar este livro, A preci- 
so ter um pouco de conhecimento 
sobre o BASIC no TK90X. Ele 
apresenta, ao todo, vinte listagens 
de jogos e grSficos, que foram ela- 
borados com o objetivo de instruir 
e, principalmente, divertir o lei- 
tor. 

No caso dos jogos, destacou- 
se como sao os controles, embora 
sua Idgica nao seja explicada em 
nenhum programa, jd que eles sao 
bem simples. 



SANDERS, W. B.. Manual 
do Apple Macintosh, 

Editora MacG raw Hill 

O autor de Manual do Apple 
Macintosh teve a preocupagao de 
n§o escrever simplesmente um 
manual, na concepgao real da pa- 
lavra. AI6m de mostrar ao usuario 
como se deve operar o equipa- 
mento, o livro tamb^m A um guia 
para aqueles que desejam comprar 
um computador, mas nao tem 
opiniao formada sobre qual esco- 
Iher. Na tentativa de auxiliar nes- 
ta decisao, o autor mostra o que o 
equipamento A capaz de fazer e as 
vantagens que o usudrio obt£m ao 
lev&-lo para casa. 



ENDERECO DAS EDITORAS 

Editora Campus — Rua Barao de 
Itapagipe, 55, CEP 20261, tel.: 
284-8443. Rio de Janeiro; 

Editora McGraw-Hill — RuaTaba- 
pua, 1105, Itaim Bibi, CEP 04533, 
tel.: 280-6622. Sao Paulo; 

Editora Nobel — Rua da Balsa, 
559, CEP 02910, tel.: 857-9444, 
Sao Paulo. 
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O MELHOR 
PARA SUA 



TK 82/83/85, CP 200 e Sinclair ZX81 



1 Usando linguagem de m4quina $ 85.000 

2 Jogos em linguagem de mdquina vol. 1 . .$ 79.000 

3 Jogos em linguagem de mdquina vol. 2 . .$ 85.000 

4 Jogos em linguagem de m^quina vol. 3 . .$ 92.000 

5 Criando em linguagem de maquina . . . .$ 99.000 



6 Tabela de mnemonicos Z80 $ 17.000 

7 0 seu micro e o mundo externo $ 95.000 

8 Basic TK vol. I $ 65.000 

9 BasicTKvol.il $ 78.000 

lOBasicTKvol.lll $ 88.000 

11 ColegSo de programas vol. 3 $ 59.000 

1 2 Dissecando jogos $ 65.000 

13 Evoluindo no Basic TK $ 79.000 

14 Super Basic TK $ 89.000 

1 5 Informdtica na escola $ 67.000 

16 Curso de jogos em Basic TK $ 45.000 

ZX SPECTRUM ETK 90 X 

17 Explorando o TK 90 X $ 90.000 

APPLE II (TK 2000) 

18 Tabela de mnemdnicos do 6502 $ 22.000 

19 Assembly 6502 $ 97.000 

20 Guia do Programador DOS $ 99 . 000 



MSX 



21 Dominando o Expert $102,000 

22 Linguagem Basic MSX $105,000 



23 Resumo de operagdes do Expert $ 24.000 

24 Colegao de Programas MSX (vol. 1). . . .$ 93 . 000 

PRECOS vAlidos p/ tempo limitado 



Nossos livros estao a venda tamtam nas boas livrarias e lojas de computagao. 
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Envie suas dicas para a Redacao de 
MICRO SISTEMAS na Av. Presidente 
Wilson, 165 - grupo 1210. Centro, Rio de 
Janeiro, RJ. CEP 20030 



Linha SHARP PC-1500 



Utilizando rdtulos 

Facilite a estrutura$ao, acom- 
preensibilidade e a manuterxjao 
de seus programas no PC- 1500, 
fazendo uso de rdtulos como no 
exemplo abaixo: 

Ao inves de: 

50GOSUB 1000 
1000 C = P * N: RETURN 



Fdc& 

50 GOSUB “ROTINA DE 
CUSTO” 

1000 ‘‘ROTINA DE CUSTO” 
C = P * N: RETURN 

TambSm aceitam rdtulos os 
seguintes comandos: 

GOTO, IF ... THEN, LIST, 
LLIST, RESTORE, RUN. 

Aldo Rodrigues da Costa — MG 



Linha APPLE 


Mensagem em parabola 


5 HONE* INPUT-NOHE ?"jA*:HONE 
10 FOR A-0 TO 6.2 STEP .2 


Esta dica serve para mostrar no video 


20 B-SIN(A) 

30 PRINT TA8(B-1061S>|AS 


a mensagem contida na variavel A$. Ca- 


40 NEXT A 
50 GOTO 10 


so a mensagem exceda os limites da tela. 




basta modificar a formula da linha 30. 


Jorge Pablo Zapata — BA 



Linha TK 2000 



Amplie caracteres 

Com esta dica, voc 6 poderf ampliar 
os caracteres do seu TK 2000. Digite 
as linhas abaixo e rode com RUN, 
depois apague-os: 

1 DATA IAS. 9. 162. 7, 173,0.64. 133, 

0, 6. 0.6.0, 144. 5. 165, 2. 32. 0,248. 1 
36.202,208.243.230.2.173,6.3.24, 
105.4.141.6.3.201.64.208.217.96 

2 FOR F-76B TO 807:READ P«POKE F 
• P iNEXT F 

Para usar o programa, digite: 

10 HOME* INPUT "OUAL A COR 7 
“(AiPRINTl INPUT"0UAL A LETRA 7 
~|AS 

20 GRtPOKE 48 . A i HTA8 UVTAB KPRI 
NT At 

30 POKE 774 , 32> POKE 2.10 
40 CALL 768 
50 GET At « TEXT • RUN 



William Joseph Watterson — SP 



Linha 



ZX Spectrum 



Memdria disponfvel 

Para saber quanto resta de memd- 
ria em seu micro, digite as linhas 
abaixo e rode o programa. Depois, 
sempre que quiser saber quanto so- 
bra de memdria, use PRINT USR 
23300. 

A rotina fica guardada na Area do 
buffer da impressora, e se voce quiser 
coloc&-la em outro local da memdria, 
basta mudar os enderefos da linha 10 
antes de rodar o programa. 

10 FOR F -23300 To 23310 
20 REAP AtPOKE F.ASNEXT F 
30 DATA 205 ,26,31, 42 ,178.92.23. 7 
.66,68.77.201 



Carlos Alberto Guerreiro — MG 



Linha ZX81 



Caleidoscopio 

Ai vai uma Dica que explora a 
capacidade gr£fica do seu compati- 
vel com ZX81. Apos rodar o pro- 
grama, mude o seu efeito alterando 
a linha 30, para: 

30 LET At-LHRt INT •RND»10*128) 

30 LET At-CHRt INT I RND-IO* 128 > » 

CHRt INT <RND-10*1> 

Podendo entao alterar o compri- 
mento da varied A$ . 

1 REN -- CALEIDOSCOPIO -- 
10 CLS 
20 LET A-l 

30 LET At-CHRt INT >KNU-10»1> 

40 LET 8=20 
50 LET C-8-PND 
60 LET D-B-RND 
TO PRINT AT r.DlAt 
80 PRINT AT D.CiAt 
90 PRINT AT C.B-DjHt 
100 PRINT AT 8-D.ClAt 
110 PRINT AT D.B-CiAt 
120 PRINT AT B-C.PiAt 
130 PRINT AT B-I .B-OrAt 
140 PRINT AT B - 1‘ . B -C I At 
150 LET A»A*1 
1 -.0 IF A-20 THEN RUN 
170 G010 50 



Jos6 Rogdrio Prates — SP 



Linha APPLE 



Impressao profissional 

Esta dica serve para escrever em 
seus joguinhos ou aplicativos peque- 
nas mensagens com mais elegancia. 
A mensagem deve ser introduzida 
na vari^vel AJ, que se encontra na 
linha 5. Para mudar a linha, onde 
vai ser impressa a mensagem, basta 
mudar o VTAB da linha 30. 

5 HONE s INPUT"FRASE ''~|At»HONE 
10 FOR A-l TO LEN ( At > 

30 VTAB HHTAB A 
40 Ht=HIDt< At. A, 1 ) 

45 SOUND ASC ( Bt ) -20 . 4 

50 PRINT Bt>CHRt(242) >CHRt< 199) 

60 NEXT A 



Jorge Pablo Zapata Rivera — BA 



Linha ZX 



Spectrum 



UDG 2 do TK90X 

A fun^Io UDG 2 do TK90X 6 
uma mJo na roda para redefinir os 
caracteres do micro, mas nem tudo 
foi dito no manual. Experimente 
apertar uma tecla de A a U, acom- 
panhada de CAPS SHIFT e vocS ve- 
i4 que pode passar a redefinif&o da 
tecla pressionada para a letra que 
estd em edi^So. 



Ricardo Costa 


- RJ 




Linha ZX81 


1 



Efeito na tela 

Esta rotina provoca nos compu- 
tadores da linha ZX81 um efeito 
muito interessante no video, poden- 
do ser usada tambem em qualquer 
programa: 

10 REN .....(5 caracteres 
qua I tqurr ) 

20 P'»KE 16514,62 
30 POKE 16515.48 
40 POKE 16516.237 
50 POKE 16517.71 
60 POKF 16518,201 
70 RANI' USR 16514 
80 FOR A=0 TO 100 
90 POKE 16515. A 
100 RAND USR 16514 
110 NEXT A 

Voc€ notary que ap 6 s rodar a ro- 
tina, todos os caracteres estarlo in- 
definidos; nSo se alarme, para voltar 
ao normal 6 s 6 dar estes comandos 
diretos: 

POKE 16515,30 (new line) e 

RAND USR 16514 



Quem Woo Moo — SP 



Linha APPLE 



Conversao DEC-HEX 



Muitas vezes, se faz necessaria 
uma rSpida conversSo Decimal-Hexa- 
decimal. Normalmente, um programa 
para esse fim, alem de ser lento, ne- 
cessita de uma serie de manipulasoes 
de “Strings” e 6 um pouco dispendio- 
80 . 

Mas, neste programa, a conversSo 
6 feita usando uma rotina intrinseca 
do Monitor, o que nos garante uma 
alta velocidade e uma simplicidade 
maior. 

Esta rotina “PRINT A” o conteu- 



Linha ZX81 



Fungdes especiais 

Use esta dica para descobrir o 
nome de um programa em seu 
TK85. 



10 LET Z-0 
20 LEI Zt-”A" 

10 DIN At< 100) 

40 RAND USR 8305 

50 FOR 1-1 TO LEN At 

60 IF CODE At< IX 128 THEN NEXT l 

70 PRINT "PROURAHAI ~|At(T0 I> 



Enrique Raul Broens — PR 



Linha TRS-80 



Destrave o LIST 
no TRS-80 

Com o seguinte POKE, qualquer 
programa com LIST todo bagun^ado 
poderi ser listado SOMENTE NA 
TELA. POKE 17129,239. Se nSo 
funcionar, desligue e ligue o compu- 
tador, recarregue o programa e d 8 
POKE 17130,66. Se ainda nSo fun- 
cionar, desligue e ligue o computa- 
dor e v£ direto para o BASIC residen- 
te, de um PRINT PEEK (17129), 
PEEK (17130), anotando os valores 
impressos e, depois, entre no DOS. 
Carregue o mesmo programa e d§ 
POKE 17129, nl: POKE 17130, n2, 
sendo nl e n 2 os valores que voc€ 
tinha adotado. 



Bruno Lopes Fernando Cabral — PB 



do dos registros XY em HEXA, e seu 
endere^o 6 JFD99. 

Observaijao: O valor miximo de- 
cimal € 65535. 

10 HONE 

20 REN DEC-HEX 

30 PR INT"ENTRE CON 0 NUMERO DEC 
" I * INPUT Z 1PR INT I PR INT 
40 K- INT ( Z/256 ) 1F-Z-K-256 
50 X-FlV-K 

60 POKE 768. 162 SPOKE 769.XIPOKE 
770.160SPOKE 771, Y 
70 POKE 772 , 32 s POKE 773.153«P0KE 
774.253 

75 POKE 775.96 
80 CALL 768 
90 PRINTtPRINT 
100 GOTO 30 



Alexandre Magno Rodrigues Alves — SP 



Linha APPLE 
e TK 2000 



Gravagao de dados 

Um dos grandes problem as do 
Applesoft/Basic 6 a gravagao de da- 
dos alfanumdicos em fita, o que di- 
ficulta muito a cria^ao de progra- 
mas do tipo Banco de Dados, por 
exemplo. 

A solu<? §o 6 simular uma fun^So 
que execute com precisao e segu- 
ransa. £ o que as rotinas abaixo 
propdem. 

ROTINA 1: 



10 HONI 
20 CLEAR 

30 DIN A< 255) .At I 255) 

40 INPUT "TEXTOi " i Bt 
50 Ai0>»LENC6t« 

60 FOR 1-1 TO A(0> 

70 At< l>-NIDt<Bt,I,t> 

80 NEXT I 

90 FOR 1 = 1 TO A* 0 > 

100 A < I > -ASC ( At 1 1 > ) 

110 NEXT I 

120 PRINT "'PR ONTO?"! GET Xt 

130 TORE A 

140 PRINI SPRINT "OK" 



ROTINA 2: 



10 HONE 
20 CLEAR 

30 DIN A < 255 > • At 1 255 > 

40 PRINT ' PRONT07"«GET Xt 
50 RECALL A 
60 FOR 1-1 TO AI0> 

70 I 1-CHRt* AT I > > 

80 Nl XT I 
90 PRINI TEXTws 

100 Fop 1-1 TO AT 0 > *PR INT At T I ) i 
sNE X I I 



Estes dois pequenos programas 
rod am sem problema no TK 2000. 

£ ACONSELHAVEL, porem, 
que estes sejam depurados para fun- 
cionarem perfeitamente, de acordo 
com as necessidades de cada um. 



Carlos Henrique C. Duarte — MG 



Linha ZX81 



INKEY$ para vdrias 
teclas 

Diversas vezes, num programa 
em BASIC, temos necessidade de 
interpretar mais de uma tecla, 
pressionada simultaneamente. 

Para resolver tal problema, 
pode ser utilizada uma variivel 
do sistema contida nos endere- 
90 s 16421 e 16422, conseqiien- 
temente, o valor das teclas pres- 
sionadas, serd: 

PEEK 164216256-PEEK 16422 

Basta guardar o resultado em 
uma variivel e, a partir daf, fazer 
todo o resto. Veja um exemplo 
com este pequeno programa que 
interpreta apenas o pressionar si- 
multaneo de 5 e 0 ou 8 e 0, mui- 
to utilizado em alguns jogos. 

10 CLS 

20 LET X-PEEK 164216256-PEEK 16422 
30 IF X-54807 THEN PRINT AT 10.16»~5 
E 0" 

40 IF X-62959 THEN PRINT AT 10.16l"8 
E 0" 

50 00T0 10 

Os valores das teclas pressio- 
nadas podem ser obtidos a partir 
da seguinte rotina: 

9000 PRINT AT 21.0|PEEK 1642162S60PE 

EK 16422 

9010 GOTO 9000 



Linha TK 2000 



Chamadas 
em Assembler 

Duas dicas para os novos usu&rios 
do TK 2000 que acham que call’s no 
TK 2000 nHo podem ser usados com 
os do Apple. £ um engano. Por exem- 
plo, digite a seguinte rotina: 

50000 DATA 160,1.162,0.138.24,23 
3, 1.208.252,141. 48.192.232,224.2 
55 . 208 . 242 . 236 . 208 . 237 , 96 
500>0 FOR A-768 TO 769JREAD BlPO 
K t A . H : Nt > 1 

500 0 FOR A=1 TO 255 SIEP 3«CALL 
T A8INEXT 

E veja que, tanto no Apple quanto 
no TK 2000, ela produz um interes- 
sante efeito sonoro. Portanto, POKEs 
a partir do endere^o 768 rodam per- 
feitamente no TK 2000. 

Para simular o CALL -958 do 
Apple, basta substitui-lo por PRINT 
SPC (39): HTAB 1. Os CALL -936 
do Integer BASIC de alguns Apple II, 
tambem rodam perfeitamente no TK 
2000 , e sem modifica$5es. 



Bruno Lopes Fernando Cabral — PB 








































Para estudar FORTH, e preciso conhecer, pelo menos um pouco, 
sobre programagao estruturada. Nesta quarta ligao, voce vai 
aprender algumas estruturas de controle que FORTH oferece. 



Curso de FORTH (IV) 

Antonio Costa 



Q uando FORTH foi inventado, um modismo deno- 
minado programa^io estruturada estava entusias- 
mando os cientistas de computa^ao. Este modismo 
influenciou de tal forma as pessoas que conceberam 
FORTH que se tornou impossivel estudar a linguagem sem sa- 
ber o que e programa^So estruturada. 

Existem trechos de programas que, dependendo da situa- 
$3o, podem ser ou n3o executados. Outros trechos devem ser 
executados repetidamente enquanto certas conduces forem sa- 
tisfeitas. Isso significa que toda linguagem precisa ter coman- 
dos para controlar a execu^ao dos outros comandos. Tradicio- 
nalmente, tal controle era utilizado pelo IF. ..THEN GOTO. 
Foi entao que o holandes Dijkstra escreveu um artigo denomi- 
nado “GO TO Considerado Prejudicial”. Neste artigo, ele pro- 
pOe que se evite o uso de GO TO em certas circunstancias. Para 
substituir o GO TO, foram propostas estruturas de controle fi- 
xas que no FORTH s3o representadas por IF ELSE THEN, 
BEGIN UNTIL e BEGIN WHILE UNTIL. Vamos dar uma olha- 
da em cada uma delas. 

IF THEN ELSE 

0 funcionamento do IF pode ser descrito assim:uma com- 
para<;ao e realizada por palavras do tipo > (maior), < (menor) 
ou = (igual). Esta com paramo e feita entre o segundo elemen- 
to da pilha e o topo, tendo como resultado os valores boolea- 
nos falso ou verdadeiro. Falso 6 representado por 0 e verdadei- 
ro, por 1 . Caso o resultado seja verdadeiro, todas as palavras 
entre IF e ELSE s§o executadas. Caso seja falso, as palavras 
entre ELSE e THEN s3o executadas. 

Existe a possibilidade de IF ser usado sem ELSE. Quando 
isto ocorre, as palavras que est3o entre o IF e o THEN devem 
ser executadas, se o resultado da compara^ao for verdadeiro. 

A figura 1 resume o comportamento do IF. Vamos ver al- 
guns exemplos que tornar3o as coisas mais claras. 

Digamos que eu queria definir uma palavra que imprima 
uma advertencia, se o numero que esta no topo da pilha for 
maior que 100. Posso fazer isto com a defini<;3o abaixo: 



Figura 1 

: ADV DUP 100 > 

IF . " NtiMERO MU I TO GRANDE" CR 
THEN ; 

0 DUP serve para fazer uma copia do numero que est3 no 
topo da pilha, conforme mostrado no seguinte esquema: 




A c6pia e necessana porque as palavras comparadoras reti- 
ram da pilha os dois elementos que comparam e n3o queremos 
perder o numero original. 0 ponto seguido de aspas lmprime 
uma mensagem. No exemplo, esta mensagem e NUMERO 
MUITO GRANDE. Observe que a mensagem termina com as- 
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pas. Observe tambem que n3o existe es- 
pa$o entre o ponto e a primeira aspa e 
que existe um espa^o entre a pnmeira 
aspa e a mensagem. A palavra CR faz 
com que o computador mude de linha 
ap6s a impressao da mensagem. Vejamos 
o funcionamento da palavra que acaba- 
mos de definir: 

54 ADV OK 

200 ADV 

NtfMERO MUITO GRANDE OK 

O numero 54 n3o provocou nenhu- 
ma rea^ao de ADV. O numero 100 fez 
com que a mensagem fosse impressa. 

Tentemos outro exemplo. Vamos de- 
finir uma palavra que substitui o topo 
da pilha por 1, se ele for maior que 0; 
por - 1 , se ele for negativo e por 0, se ele 
for nulo. Esta palavra e chamada de si- 
nal pelos matemdticos. 

: SINAL DUP 0 > 

IF DROP I 
ELSE 0 = 

IF 0 
ELSE -1 
THEN THEN ; 

Deixo para o leitor a decifra$3o do 
funcionamento de SINAL. 

£ boa prdtica de programa$3o colo- 
car os componentes de uma estrutura de 
controle um embaixo do outro. Isto po- 
de ser visto na defini^ao de SINAL: os 
ELSEs, estao embaixo dos IFs, e os 
THENs, dos ELSEs. 

BEGIN UNTIL 

O comportamento de BEGIN UNTIL 
pode ser resumido assim: entre o BEGIN 
e o UNTIL existem virias palavras que 
sao executadas repetidamente ate que o 
UNTIL encontre a indica^ao de verda- 
deiro na pilha. Este comportamento e 
esquematizado na figura 2. A indicaf3o 
de verdadeiro, conforme ja vimos, 6 o 
numero 1. 

Vamos usar BEGIN UNTIL para defi- 
nir uma palavra muito util. Trata-se da 
SN. Esta palavra le o teclado ate que 
uma pessoa tecle S (simbolizando sim) 
ou N (representando n3o). Caso a letra 
teclada seja S, 1 e deixado na pilha. Ca- 
so seja N, 0 e deixado na pilha. Veja o 
exemplo: 

s SN BEGIN .* Tecle Slim) ou N(ao)* CR 
KEY DUP 78 » 

IP DROP 0 t 
ELSE 83 ■ 

IP 1 1 

ELSE 0 
THEN THEN 
UNTIL i 

Os numeros 78 e 83 s3o os cddigos 
de S e de N. Se a letra teclada for N (c6- 
digo 73), sera executado “IF DROP 
0 1”. O 1 servira para indicar ao UNTIL 
que ele pode parar de pedir a pessoa que 
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Figura 2 



tecle S ou N. O 0 indica que N foi tecla- 
do. Se a tecla pressionada n3o for N, ela 
e comparada com S (codigo 83). Caso 
ela seja a S, FORTH executara “IF 1 1”. 
O primeiro 1 serve para mostrar que S 
foi apertado; e o segundo, para fazer o 
UNTIL interromper as repeti^Oes. Se a 
pessoa n3o apertou nem S nem N, 0 e 
deixado na pilha e, ao ser encontrado 
por UNTIL, far3 com que o programa 
pe^a mais uma vez que o usuario tecle 
S(im) ou N(3o). Nosso programinha e 
teimoso: enquanto alguem n3o aperta 
S ou N, ele n3o para de insistir. 

BEGIN WHILE REPEAT 

O BEGIN WHILE REPEAT n3o e 
muito diferente do BEGIN UNTIL. En- 
tre o BEGIN e o REPEAT h3 varias pa- 
lavras que devem ser executadas repeti- 
damente enquanto o WHILE encontrar 
um sinal de verdadeiro deixado na pilha 
por alguma compara^ao. Se WHILE en- 
contrar um sinal de falso, ele interrom- 
per3 as repeti^Oes. O exemplo que va- 
mos fornecer e uma palavra que pede re- 
petidamente numeros e os soma ao topo 
da pilha. 

S SOMATdRIA 0 

BEGIN .* d6-ME UM nOMERO" CR #IN 
DUP 0 > 

WHILE REPEAT DROP l 

Inicialmente, um 0 e colocado no to- 
po da pilha. Numeros s3o pedidos, en- 
quanto a pessoa que os esta teclando 
n3o entrar com um que seja negativo. A 
palavra que le inteiros do teclado e os 
coloca na pilha e # IN. 

CARACTERES GRAFICOS 

A maioria dos computadores possui 
certos codigos que, impresses com 





CURSO DE FORTH (IV) 
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ENCOLHE 1 1 SO | |l 76||l7l| 
6 0 DO EMIT LOOP 



151 176 32 



ESTICA 1 150 176 176 176 1 76 32 
6 0 DO EMIT LOOP ] 



Figura 3 



EMIT, produzem simbolos grAficos. £ 
possivel imprimir seqiiencias destes sim- 
bolos grdficos de modo a formar dese- 
nhos muito uteis na confec 9 So de jo- 
gos. A figura 3 mostra uma das muitas 
maneiras de fazer isto. Nesta figura, hd 
um esquema indicando como uma pe- 
quena minhoca egipcia pode ser dese- 
nhada tanto com o corpo encolhido 



quanto com o corpo esticado. Os c6- 
digos graficos usados para criar a mi- 
nhoca s2o de mdquinas compativeis 
com o TRS-80. Caso sua maquina se- 
ja da linha Sinclair, consulte o ma- 
nual para ver quais simbolos deve usar 
a fim de obter efeito semelhante. 

Na figura 4 mostramos como movi- 
mentar a minhoca pela tela. Nesta lista- 
gem, a palavra PAUSA emite uma nota 
musical de certa dura 9 ao e tern duas fina- 
lidades: produzir som e fazer FORTH per- 
der tempo de modo que o movimento da 
minhoca nSo seja muito r£pido. Obser- 
ve que usamos a palavra NOTE, cuja de- 
fink^ao foi dada na primeira li 9 So . Reuti- 
lizar palavras definidas anteriormente e 
muito popular entre programadores 
FORTH, pois diminui em muito o tem- 
po de desenvolvimento de aplicativos. 
Aconselho o leitor a manter uma biblio- 
teca de palavras reutilizaveis. 

Vamos agora discutir a defm^ao de 
MINHOCA apresentada na figura 4. A 
palavra PAGE apaga a tela. A seqiiencia 
“15 EMIT” elimina o cursor de mdqui- 
nas como o TRS-80 e o CP 500. Caso 
sua maquina nSo seja uma destas duas, 
nSo e preciso incluir “15 EMIT” na defi- 
ni95o. A seqiiencia “6 I PTC ESTICA” 
coloca o cursor na coluna I da linha 6 e, 
em seguida, desenha a minhoca esticada. 



: ENCOLHE IbO 176 171 151 


176 32 


6 O DO EMIT 


LOOP ; 




; ESTICA 150 176 176 176 


76 32 


6 O DO EMIT 


LOOP ; 




: PAUSA SB 40 


NOTE ; 




: MINHOCA PAGE 


15 EMIT 




55 O DO 6 1 


PTC ESTICA 


PAUSA 


6 1 


PTC ENCOLHE PAUSA 


LOOP ; 







Figura 4 



Como I estd variando de 0 a 53, haverA a 
ilusio de movimento. 

Gostaria de chamar a aten 9 ao do lei- 
tor para o fato de que o ultimo cardter 
do corpo da minhoca e um espa 9 o em 
branco (cddigo 32, no TRS-80). Se este 
espa 90 em branco n3o for incluido, a 
minhoca deixari um rastro ao se movi- 
mentar. 

£ 
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AMicrodigita 
lanpa no Brasi 
o micro pessoal 
de maiorsucesso 
nomunda 

A pamr de agora a histdria dos 
micros pessoais vai ser contada em duas 
panes: antes e depois do TK 90X. 

0 TK 90X e, simplesmente, o unico 
micro pessoal lancado no Brasil que 
merece a classificacao de ’software 
machine”: urn caso raro de micro que 
pela sua facilidade de uso, grandes 



recursos e preco acessrvel recebeu a 
atencao dos cnadores de programas e 
penfericos em todo o mundo. 

Para voce ter uma ideia. existem 
mais de 2 mil programas. 70 




revistas de usuanos disponiveis para ele 
mtemacionalmente 

E aqui o TK 90X $ sai com mais de 
100 programas. enquanto outros estao 
em fase final de desenvolvimento para 
Ihe dar mats opcoes para trabalhar. 
aprender ou se divemr que com qualquer 
outro micro. 

0 TK 90X tem duas versoes de 
memoria Ide 16 ou 48 K). imagem de 
alta resolucao grafica com 8 cores, 
carregamento rapido de programas 
(controlavel pelo propno monitor), som 
pela TV. letras maiusculas e mmusculas 
e ainda uma exclusividade: acentuacao 
em portugu§s. 

Faca o seu programa: peca uma 
demonstracao do novo TK 90X. 
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